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'he  objective  of  this  effort  was  to  modify  the  RADC  trajectory  program  orbit 
program  and  various  radar  cross  section  programs  were  modified  to  run  on  the 
RADC  HIS  6180  computer  under  the  GCOS  system  software.  The  RADC  trajectory 
program  was  modified  to  include  the  capability  of  processing  multiple  (20) 
radar  sites  and  multiple  (20)  targets  in  the  program  so  that  various  radar 
parameters  could  be  determined.  This  type  of  information  is  essential  in 
performing  radar  coverage  analyses  for  systems  such  as  COBRA  TALON,  SEEK  SAIL, 
COBRA  DANE  and  COBRA  JUDY.  This  portion  of  the  effort  is  documented  in  Vol  “J, 
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Line  20  (continued)  Vol  ]A  documents  a procedure  for  punching 

cards  in  ASCII  format  and  reading  the  data  onto  a HP  cassett  for  subsequent 
plotting  with  an  HP9820  calculator  system. 

Vol  LTI  documents  some  Radar  Signature  and  Radar  Scattering  computer  programs. 

A three  dimensional  plot  program  contained  in  this  volume  has  been  incorporated 
into  the  Interactive  Radar  Simulator  for  plotting  three  dimensional  antenna 
patterns  and  cross  section  aspect  angle  histories.  v 
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ABSTRACT 

The  objective  of  the  effort  documented  herein  was  to  provide  computer 
programming  support  for  Space  Surveillance  system  analysis.  The  two  pri- 
mary tasks  of  the  effort  were  to  complete  the  modification  of  the  RADC 
Trajectory  Program  and  to  modify  various  radar  cross-section  and  other 
computer  programs  so  that  they  could  be  accessed  from  the  interactive 
system  for  the  RADC  Radar  Simulator.  The  documentation  is  organized 
as  follows: 

Volume  I,  Part  1,  Book  1 - Project  Summary  and  Computer  Program 

Documentation  (Chapters  I- III  of  Volume  I,  Part  1) 

Volume  I,  Part  1,  Book  2 - Computer  Program  Documentation 

(Chapter  IV) 

Volume  I,  Part  1,  Book  3 - Computer  Program  Documentation 

(Chapters  V-VI  and  Appendices  A-E) 

Volume  I,  Part  2 - RADC  Trajectory  Program  - Numerical/ 

Analytical  Data 

Volume  II  - Generalized  Data  Entry  and  Plot  Program 

Volume  III  - Radar  Signature  and  Radar  Scattering  Principles 

Investigation  Software 
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EVALUATION 


The  objective  of  this  effort  is  to  provide  RADC  systems  engineers  with 
the  software  commonly  required  for  systems  studies  and  the  necessary  software 
for  plotting  the  data.  The  RADC  trajectory  program  was  modified  to  handle 
multiple  targets  and  multiple  radar  sites.  This  program  is  required  to 
perform  coverage  analyses  for  radar  surveillance  systems  and  has  been  used 
in  support  of  SEEK  SAIL,  COBRA  TALON  and  COBRA  DANE.  The  cross  section 
programs  are  used  to  determine  the  cross  sections  of  targets  that  a radar 
system  would  be  required  to  detect. 


Since  the  RADC  computer  facility  does  not  have  a means  of  plotting 
data,  most  of  the  computer  data  generated  was  of  limited  value  and  extremely 
time  consuming  to  use.  Vol  II  documents  a procedure  for  punching  cards  in 
ASCII  format  and  reading  data  onto  an  HP  cassette  for  subsequent  plotting 
with  an  HP  9820  calculator  system.  This  capability  has  proven  extremely 
useful . 


Vol  III  documents  some  Radar  Signature  and  Radar  Scattering  computer 
programs.  A three  dimensional  plot  program  contained  in  this  volume  has 
been  incorporated  into  the  Interactive  Radar  Simulator  for  plotting  three 
dimensional  antenna  patterns  and  imaged  wideband  cross  section  data.  These 
programs  can  serve  as  a starting  point  in  the  Tactical  Target  Identification 
Program. 


JOHN  C.  CLEARY 
Project  Engineer 


£.  Introduction 


A.  Purpose  and  Scope 

This  document  is  Volume  I,  Part  1 of  the  technical  report  and  computer 
program  documentation  for  the  Space  Surveillance  Software  Support  Contract, 
F-30602-75 -C-0167,  and  is  submitted  in  fulfillment  of  items  A002  and  A003 
of  the  contract  data  requirements  list.  The  work  represented  herein  has 
been  performed  by  Information  Sciences  Company  (ISC)  of  Planning  Research 
Corporation  (PRC). 

Contained  herein  are  a summary  of  the  work  done  on  the  project  in 
the  modification  of  the  RADC  Trajectory  Program  and  others  and  the 
documentation  for  all  computer  programs  modified. 

B.  Document  Organization 

Volume  I,  Part  1 is  organized  as  follows: 

Chapter  II  is,  basically,  the  project  summary.  Appropriate  exhibits 
are  interleaved  with  the  text  material. 

Chapters  III  and  IV  contain  descriptions  of  the  trajectory  computer 
programs  and  radar  cross-section  computer  programs,  respectively. 

Included  are  source  listings,  sample  test  cases,  and  sample  output  from 
the  test  cases. 

Chapter  V contains  descriptions  of  several  auxiliary  programs 
developed  during  the  project,  while  chapter  VI  gives  a list  of  references. 

Appendices  A through  E contain  analyses  relating  to  the  trajectory 
programs  and  descriptions  of  several  small  radar  simulation -type  programs. 

Volume  I,  Part  1 is  subdivided  into  3 Books,  Book  1 containing 
Chapters  I—  III,  Book  2 containing  Chapter  IV,  and  Book  3 containing 
Chapters  V -VI  and  Appendices  A-E. 
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II. 


Space  Surveillance  Software  Support 
Project  Summary 


A.  Project  Overview 

The  essential  purpose  of  the  Space  Surveillance  Software  Support 
project  was  to  provide  computer  programming  support  to  aid  Space 
Surveillance  system  analysis.  This  support  took  the  form  of  modifying 
numerous,  existing  trajectory  and  radar-cross  section  programs  and 
implementing  them  on  the  Honeywell  635  and  6180  computers  at  RADC. 

These  programs  were  written  in  FORTRAN  Y and  placed  in  the  appropriate 
time-sharing  CARDIN  format  so  that  they  could  be  accessible  from  the 
interactive  system  for  the  RADC  Radar  Simulator. 

The  work  on  the  project  was  divided  into  two  major  task  areas. 

One  of  these  tasks  was  to  bring  the  modification  of  the  RADC  Trajectory 
Program  to  a completion;  the  initial  modification  of  the  program  was 
performed  under  Contract  F30602 -72 -C-0 1 36.  This  second  modification 
included  the  capability  of  processing  multiple  radar  sites  and  multiple 
targets  in  the  program  so  that  various  radar  parameters  could  be  determined. 
The  trajectory  program  can  now  accommodate  up  to  20  different  radar  sites 
and  up  to  20  targets. 

The  second  task  consisted  of  the  modification  and  implementation  of 
a number  of  trajectory,  target  model,  and  radar  cross-section  programs. 
There  were  12  programs,  altogether,  involved  in  the  task,  and  they  were 
made  executable  via  the  remote  batch  system  (CARDIN)  of  the  RADC  Honey- 
well computers.  The  12  programs  were  the:  Cobra  Talon  Trajectory 
Program,  Nodal  Crossing  Prediction  Program,  Orbit  Prediction  Program, 
Cone  Program,  Cone -Cylinder  Program,  Frustum  Program,  Frustum- 
Cylinder  Program,  Hemisphere -Cylinder  Program,  Radar  Scatter  from 
Missile  Program,  Dihedral  Corner  Reflector  Program,  Cylinder  Program, 
and  Cylinder-Flare  Program. 

B • Program  Development 

The  required  modifications  to  the  various  computer  programs  and  their 
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implementation  on  the  Honeywell  computing  system  were  carried  out  in 
a certain  manner.  The  procedure  followed  with  respect  to  the  two  major 
tasks  of  the  project  will  be  described  in  the  following  paragraphs. 

1 . Modification  of  the  RA DC  Trajectory  Program 

It  was  realized  initially  that  the  plotting  capability  had  to  be 
restored  to  the  RADC  Trajectory  Program  in  order  to  make  full  use  of  it. 

The  XYNECTICS  plotter,  by  which  plots  of  radar  data  were  produced  for 
the  version  of  the  program  as  modified  under  the  original  contract,  was  no 
longer  available.  However,  the  Hewlett-Packard  9820A  calculator /plotter , 
with  the  capacity  to  read  data  cards  was  available.  What  was  done  was  to 
write  a short  program  to  read  the  plot  file  created  by  the  trajectory  program 
and  to  punch  out  the  file  data  onto  cards  for  plotting  on  the  HP9820A.  This 
short  program  served  as  the  basis  of  another  plot  program  which  could  read 
the  plot  file  created  by  the  multiple  site/multiple  target  version  of  the 
trajectory  program  and  which  was  used  quite  often. 

After  checking  that  the  first  modified  version  of  the  trajectory 
program  executed  correctly,  a detailed  flow-chart  of  the  major  processing 
within  the  program  was  drawn  up.  This  flow-chart  was  to  serve  as  a 
basic  reference  for  making  further  modifications  to  the  program.  It  was 
thought  that  the  modification  involving  multiple  radar  sites  would  be  easier 
(less  complicated)  to  include  first  in  preference  to  that  involving  the  multiple 
targets,  and  this  is  what  was  done.  The  multiple  site  addition  was  thoroughly 
tested  using  the  results  produced  from  prior,  valid  computer  runs.  The 
additional  capability  of  printing  out  a message  to  the  effect  that  an  object 
was  not  detected  by  a radar  site,  when  this  was  the  case,  was  also 
incorporated.  Next,  the  multiple  target  (or  trajectory)  capability  was 
implemented.  Basically,  this  involved  putting  an  outer  loop  around  the 
processing  of  the  program;  the  multiple  site  modification  had  been  made  to 
process  a single  target  only.  Again,  the  multiple  target  addition  to  the 
program  was  carefully  checked  using  previous,  good  computer  runs. 

After  check-out  of  the  multiple  target/multiple  site  modification, 
other  capabilities  were  added  to  the  program.  An  atmospheric  model  for 
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simulating  atmospheric  effects  on  missiles  was  included  and  tested.  This 
model  was  essentially  the  one  that  was  in  the  original,  unmodified  version 
of  the  program.  The  generation  of  circular  orbit  trajectories  with  the 
program  was  tested,  and  the  option  to  select  either  inertial  velocity  or 
burnout  velocity  was  added.  Finally,  inclusion  of  radar  parameter  difference 
computations  for  multiple  sites  and  trajectories  was  worked  on. 


Modification  of  Other  Programs 


The  discussion  here  generally  refers  to  all  programs  modified 
except  the  RADC  Trajectory  Program.  These  programs  consisted  of 
3 trajectory-type  programs  and  9 target  model  or  radar  cross-section 
programs.  The  basic  procedure  which  was  followed  in  modifying  these 
programs  and  implementing  them  on  the  Honeywell  system  is  given  below. 


The  existing  source  deck  for  a program  was  loaded  on  a disc 
file,  compiled,  and  compilation  errors  were  eliminated.  Routines  common 
to  several  programs  were  removed  from  the  programs  and  processed 
separately.  An  attempt  was  then  made  to  execute  the  error -free  object 
form  (also  on  a disc  file)  of  the  program  using  a given  input  test  case. 

The  results  were  compared  against  results  obtained  from  previous,  reliable 
runs  of  the  program.  If  the  results  compared  favorably,  then  the  program 
inputs  were  converted  to  NAMELIST  format,  where  it  had  not  already  been 
done  so,  in  order  to  facilitate  the  use  of  the  CARDIN  system  for  program 
execution.  When  the  results  did  not  check  out,  a search  was  made  for 
program  and/or  load  errors,  and  after  being  found  and  corrected,  then  the 
input  conversion  to  NAMELIST  was  made.  The  NAMELIST  conversion 
was  also  tested  through  computer  runs.  The  last  thing  that  was  done  to  a 
program  was  to  produce  plots  of  its  computations  as  a final  output  and 
check-out.  In  most  cases  this  meant  adding  a subroutine  to  the  program  to 
place  the  required  data  on  a file  so  that  it  could  be  punched  onto  cards  later. 
In  addition,  it  should  be  mentioned  that  each  program  was  executed  in  the 
CARDIN  system  by  means  of  their  respective  job  streams  which  had  been 
placed  on  file. 
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C.  Program  Usage 

This  is  a general  discussion  indicating  how  to  use  the  programs  which 
have  been  implemented  under  this  contract.  The  reader  should  refer  to  other 
chapters  of  this  volume  for  more  detail. 

1 . RADC  Trajectory  Program 

After  the  user  selects  the  appropriate  missile,  radar,  etc. 
input  parameters , he  must  decide  what  input  options  to  exercise.  Basically, 
these  options  will  be  determined  by  what  type  of  run  he  desires  and  what 
output  he  wants.  Incidentally,  in  choosing  values  for  the  missile  parameters 
(initial  velocity,  re-entry  angle,  etc.  ),  the  reader  is  referred  to  the  appendices. 
Part  2 of  this  volume,  section  II.  E,  and  other  documents  which  may  have 
been  produced  on  the  subject.  By  selecting  appropriate  values  for  the  main 
processing  switch,  NSWTCH,  and  the  plotting  options,  IPLOT1  or  IPLOT2, 
the  user  can,  for  the  most  part,  control  the  flow  of  a program  execution 
and  the  output  from  it  for  immediate  and/or  later  use.  NSWTCH  = 0 will 
cause  the  computation  of  trajectory  parameters  only,  the  printout  of  them, 
and  the  storage  on  a file  of  those  needed  for  determining  radar  parameters. 

No  radar  computations  will  be  made  when  NSWTCH  = 0.  By  setting  NSWTCH 
= 1,  the  program  will  produce  trajectory  data,  storing  appropriate  parameters 
on  a file  as  for  NSWTCH  = 0,  and  will  calculate  radar  parameters  (range, 
azimuth,  etc.  ) for  each  of  the  input  radar  sites.  NSWTCH  = 2 will  cause  the 
generation  of  radar  data,  only,  from  trajectory  data  placed  on  file  when 
NSWTCH  = 0 or  1.  By  setting  either  plot  option,  IPLOT1  or  IPLOT2, 
equal  to  . TRUE.  , the  user  can  have  radar  data  placed  on  a plot  file  for  later 
access  in  producing  plots.  For  this  purpose,  cards  would  be  punched  out 
from  the  file  through  the  use  of  a short  auxiliary  program  (1st  program  of 
Chapter  V),  and  they  would  be  plotted  on  the  HP9820A  by  means  of  the 
Generalized  Data  Entry  and  Plot  Program. 

2.  Other  Trajectory  Programs  and  Target  Model  Programs 

Most  of  these  programs  do  not  have  any  input  options  so  that 
their  use  is  relatively  straight-forward.  The  possible  exceptions  are  the 
Cobra  Talon  Trajectory  Program  which  requires  the  setting  of  such  switches 
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as  those  for  selecting  the  nominal  trajectory  and  inertial  velocity  and  the 
Orbit  Prediction  Program  which  has  a switch  for  putting  data  on  a plot  file. 

The  basic  procedure  in  running  any  one  of  the  programs  would  be  to  choose 
desired  values  for  the  input  parameters,  enter  them  in  the  appropriate  job 
stream  file,  and  execute  the  job  stream  via  CARDIN  and  the  Honeywell  6180 
computer.  A plot  file  is  created  automatically  when  a target  model  (cross- 
section)  program  is  executed.  If  one  desires  the  file  to  be  punched  onto 
cards,  the  BPUNCH  subsystem  of  CARDIN  can  be  utilized  as  each  file 
is  written  in  BCD  format.  For  the  Cobra  Talon  and  Orbit  Prediction 
Programs,  if  it  is  desired  to  punch  out  their  plot  files,  the  appropriate 
auxiliary  punch  programs  would  be  employed. 

D.  Conclusions 

There  are  several  accomplishments  of  this  project  which  have  resulted 
from  the  work  performed: 

The  RADC  Trajectory  Program  has  been  made  into  a more  efficient 
tool  for  the  performance  of  radar  system  analysis.  It  can  now  process  up 
to  20  different  radar  sites  and  up  to  20  targets  (or  trajectories)  and 
determine  radar  coverage  parameters.  Data  from  multiple  trajectories 
can  be  permanently  stored  on  a file  and  used  many  times  over  for  computing 
radar  parameters.  This  would  result  in  considerable  saving  of  computer 
time  as  the  trajectory  generation  is  by  far  the  most  time-consuming 
process  in  the  program.  Plots  of  radar  data  can  now  be  made  on  the  HP 
9820A  calcula  tor /plotter . Refer  to  Figure  H-l  for  an  example  of  such  a plot. 
Also,  the  RADC  Trajectory  Program  has  been  implemented  on  the 
Honeywell  6180  CARDIN  subsystem,  so  that  it  is  executable  by  means  of  the 
interactive  system  for  the  RADC  Radar  Simulator. 

The  target  model  programs  have  been  checked  out  on  the  Honeywell  635 
and  6180  computers  and  made  accessible  through  the  remote  batch  CARDIN 
subsystem.  The  capability  of  storing  data  for  plotting  was  also  added  to 
these  programs.  The  Cobra  Talon  Trajectory  Program  had  several  corrections 
made  to  it  while  it  was  being  implemented  on  the  CARDIN  system.  It  also 
was  given  the  added  capability  to  generate  circular  orbits.  In  addition,  the 
Orbit  Prediction  Program  (as  well  as  the  Cobra  Talon  Program)  was 
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provided  the  capacity  for  obtaining  plots  of  its  results,  and  both  it  and  the 
Nodal  Crossing  Prediction  Program  were  made  executable  via  CARDIN. 


i 
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In  the  course  of  modifying  and  implementing  the  many  programs 
involved  in  this  project,  several  computer  runs  were  attempted  in  which 
a spaceborne  radar  system  was  simulated.  A plot  from  one  of  the  runs, 
showing  the  decrease  in  range  of  a missile  as  it  approaches  impact  at 
the  radar,  is  illustrated  in  Figure  II - 2 . 

Several  observations  concerning  the  RADC  Trajectory  Program  can 
be  made;  some  of  them  may  also  apply  to  the  Cobra  Talon  Trajectory 
Program.  Most  of  the  major  trajectory  and  radar  computations  in  the 
program  are  currently  performed  in  double  precision  floating  point. 

It  might  be  worthwhile  to  perform  an  experiment  on  the  program  with 
the  computations  changed  to  single  precision.  If  the  experiment  is 
successful,  the  benefit  would  be  a significant  reduction  in  both  computer 
processing  time  and  required  memory.  In  the  modified  program,  the  trajectory 
data  stored  on  file  was  in  single  precision;  radar  computations  made  with 
this  data  showed  no  noticeable  difference  from  those  made  with  double 
precision  data.  The  basic  integration  time  for  trajectory  interations  was 
set  at  0.  01  min.  In  the  original  program  this  time  changed  according  to 
certain  conditions,  e.  g.  , altitude  of  missile  below  a certain  level.  Results 
from  the  modified  program  were  compared,  in  several  instances,  against 
corresponding  results  from  the  original  program  for  which  the  integration 
time  varied  and  no  significant  difference  was  discovered. 

E.  Trajectory  Computer  Programs 

The  trajectory  computer  programs  deserve  special  attention  here 
because  they  are  the  most  important  and  widely  used  of  the  programs  worked 
on  for  this  project.  This  section  could  be  considered  as  an  introduction 
to  their  detailed  description  in  chapter  III  and  the  analyses  of  Appendices  A 
through  E and  Volume  I,  Part  2.  Most  of  the  following  paragraphs  have 
been  excerpted  from  the  "Cobra  Talon  Study  Computer  Programs" 
document  (see  References).  Updates  have  been  inserted  in  the  text  where 
appropriate. 
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A missile  trajectory  computer  program  developed  at  RADC*  had  been 
modified  to  zero-in  on  a specific  impact  point.  This  is  accomplished 
by  utilizing  the  position  and  velocity  vectors  at  the  actual  impact 
point  as  new  initial  conditions.  Then  the  actual  impact  point  is 
moved  to  the  desired  impact  point  and  run  backwards  to  burnout,  which 
is  time  zero.  Thus,  a new  set  of  initial  burnout  conditions  is 
obtained  for  the  third  trajectory  which  zeros  in  on  the  desired  impact 
point.  This  is  of  particular  interest  for  reentry  radars.  Additional 
trajectories  can  be  run  which  are  perturbed  from  the  nominal  trajectory 
(i.e.,  the  third  trajectory);  the  radar  differences  from  the  nominal 
trajectory  (3rd)  are  then  printed  out.  This  option  is  obtained  by 
setting  the  FORTRAN  variable  KZ=0  in  the  Cobra  Talon  Program  and  = F 
in  the  RADC  Trajectory  Program. 

In  a study  which  OCSA  was  required  to  perform,  the  launch  point 
and  missile  capability  were  known.  Therefore,  the  above  computer 
program  was  modified**  so  that  the  launch  point  was  not  changed.  The 
impact  point  was  allowed  to  stay  where  the  missile  capability  put  it. 

This  means  that  the  first  trajectory  was  made  the  nominal  trajectory. 

The  second  and  third  trajectories  were  skipped  and  additional  trajec- 
tories were  perturbed  from  the  first  trajectory.  This  option  is  obtained 
by  setting  KZ=1  in  the  Cobra  Talon  Program  and  - T in  the  RADC  version. 

The  original  program***  was  such  that  every  time  initial  burnout 

conditions  were  changed,  the  computer  program  was  changed.  This  computer 

program  was  changed  to  accept  input  data  without  changing  the  computer 

* See  Reference  4,  Page  VI-2 

**  See  Reference  3,  Page  VI-2 

***  See  Reference  4,  Page  VI-2 


program  every  time.  This  allows  the  time-sharing  system  to  be  used 
for  production  runs.  The  computer  program  was  also  modified  to  print - 

i 

out  all  the  input  conditions  for  future  reference. 

To  determine  the  radar  coverage  parameters  a separate  version  of 
the  trajectory  computer  program  was  utilized  which  prints  the  missile 
trajectory  and  radar  coverage  data  every  tenth  of  a trajectory  minute. 

In  addition,  the  radar  slant  range  is  printed  out  in  nautical  miles. 

For  the  case  where  differences  are  calculated,  a second  version  of  the 
computer  programs  prints  out  data  for  every  trajectory  minute.  Also, 
the  differences  in  radar  slant  range  from  the  nominal  trajectory  are 
printed  in  feet.  The  original  computer  program  was  modified  to  calcul- 
ate the  total  angular  separation  in  the  radar  beam  from  the  nominal 
trajectory. 

The  outputs  of  the  computer  program  can  be  used  to  determine  the 
radar  systems  information  needed  to  fill  in  Table  11-1  . 

To  simulate  missile  trajectories,  burnout  velocities  referenced  to 
the  earth's  surface  are  required;  therefore,  set  the  FORTRAN  variable 
INERTL  * 0.  If  satellite  orbits  are  to  be  simulated,  inertial  veloc- 
ities must  be  used;  therefore,  set  INERTL  * 1.  This  causes  the  earth's 
rotation  (W)  to  be  subtracted  from  ^ , the  total  longitude  angle 

velocity  component  of  the  vehicle  which  is  in  subroutine  ICERBM(P) 
as  the  FORTRAN  variable  XD(3).  When  a simulated  trajectory  is  required 
for  a specified  inclination  (INC)  angle,  the  missile  heading  angle 
BETA  measured  clockwise  from  north  has  to  be  calculated.  Figure  II-3 

1 

A 
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XPLAN'ATORY  NOTES: 


V.  Unless  otherwise  specified,  the  numbers  in  parenthesis  list  time  (min. 
after  burnout)  at  which  value  would  be  observed. 


2.  The  total  Az  Angle  is  the  az  angle  required  by  radar  to  observe  missile 
from  horizon  to  horizon  (0.5°  el.  angle).  The  numbers  in  parenthesis  in- 
dicate initial  and  final  detection  azimuths  (true  North)  from  radar  site. 

3.  The  Total  Observation  Time  is  the  time  target  would  be  within  radar 
field-of-view.  In  parenthesis  are  cited  initial  and  final  observation 
times. 


TABLE  -ii-l.  Radar  Systems  Information  Chart 
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Section  III  B.  documents  the  PRC  version  of  the  RADC  Trajectory 
Program.  PRC's  effort  was  directed  towards  making  the  program  run 
more  efficiently  on  HIS  6180  and  making  the  program  relatively  easy  to 
use  for  the  user.  This  version  of  the  program  can  handle  multiple 
trajctories  for  multiple  radar  sites.  To  save  computer  run  time  the 
trajectories  of  interest  can  be  stored  on  disc  and/or  magnetic  tape. 

Then  coverage  parameters  for  the  radar  sites  of  interest  can  be  handled. 
Since  the  trajectory  simulation  requires  the  greatest  amount  of  computer 
time  this  is  more  efficient  and  allows  other  radar  sites  which  may  come 
into  consideration  at  a later  date  to  be  easily  included. 

Appendix  A discusses  the  ejection  velocity  geometry  used  for  multiple 
trajectories.  Other  appendices  discuss  procedures  for  determining  burn- 
out velocity  input  parameters  for  the  missile  case.  The  inertial  velocity 
for  orbital  cases  is  determined  from* 


where 


I + e o«-€ 


(circular  orbit) 


(elliptical  orbit) 


^ - true  anomaly  = angular  position  along  orbit  referenced 

to  perigee 

= 5.0675004  x 1019  ft3/min2 


See  "Radar  Handbook"  by  Skolnik 


- -JL 
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X4  - 1.407639  x 1016  ft3/sec2 

RE  ■ 2.0925640  x 107  ft  (earth's  equatorial  radius) 
e ■ orbit  eccentricity  ( e * 0 for  circular  orbit) 
a * seai-aajor  axil 

r ■ distance  from  earth's  center  to  satel 1 ite/aissi le  position 

Section  III.  C.  documents  the  Cobra  Talon  version  of  the  RADC 
I rajectory  Program.  This  version  has  the  capability  of  handling  multiple 
targets  ejected  Irom  the  nominal  trajectory  for  a single  radar  site. 
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III.  Description  of  Trajectory  Computer  Programs 


A.  Introduction 

This  section  provides  a description  for  four  (4)  simulation-type 
computer  programs  which  have  been  written  in  FORTRAN  Y to  execute 
under  the  Honeywell  6180  GCOS  operating  system.  These  programs, 
basically,  generate  trajectories  for  missiles  and  satellites  and  determine 
radar  coverage  parameters  and  are  the  following: 

1.  RADC  Trajectory  Program 

2.  Cobra  Talon  Trajectory  Program 

3.  Nodal  Crossing  Prediction  Program 

4.  Orbit  Prediction  Program 

Program  1 is  a second  modification  of  the  general  perturbation  pro- 
gram of  George  A.  Ellis,  the  initial  modification  of  which  was  done  under 
Contract  F30602-72-C-0136.  Program  2 is  essentially  the  version  of 
Mr.  Ellis'  program  which  was  used  in  conjunction  with  the  Cobra  Talon 
radar  study  by  John  C.  Cleary  and  Leonard  C.  Gratch.  Refer  to  sections 
HI.  B and  III.  C for  documentation  and  further  references  on  these  programs. 
Programs  3 and  4 were  developed  under  the  direction  of  Mr.  Cleary  for 
predicting  the  path  of  an  earth -orbiting  satellite  and  determining  radar 
look -angles  for  it.  Sections  III.  D and  HI.  E document  these  programs  and 
mention  a reference  for  them.  All  the  programs  have  been  put  in  the 
appropriate  time-sharing  CARDIN  format  by  PRC/ISC  so  that  they  are 
executable  by  means  of  the  RADC  Interactive  Radar  Simulator. 
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1 . Introduction 

This  computer  program  is  a second  modification  of  the  general 
perturbation  program  (PROGRAM  TRAJ)  of  George  A.  Ellis,  previously 
modified  under  Contract  F30602- /2-C-01  36.  The  previous  modification  re- 
tained much  of  the  mathematics  and  basic  processing  methodology  of  the 
Ellis  program  but  differed  primarily  in  its  input/output  capabilities  and 
increased  modularity.  More  input  flexibility  and  capacity  for  generating 
trajectory  data  (relative  to  a radar  site)  for  use  with  an  off-line  plotter 
were  major  characteristics  of  the  first  modified  version.  This  second  re- 
finement of  the  program  brought  the  modification  of  the  RADC  Trajectory 
Program  to  completion.  The  capacity  for  accommodating  multiple  DSSR 
sites  and  multiple  targets  has  been  added  to  the  program,  while  still  main- 
taining the  capabilities  of  the  first  modification. 

The  basic  function  of  the  program  is  to  generate  the  trajectory 
of  a ballistic  missile  or  an  earth-orbiting  satellite.  It  predicts  the  position, 
velocity,  and  acceleration  of  the  vehicle  and  can  compute  radar  parameters 
(range,  azimuth,  elevation,  etc.  ) relative  to  a number  of  radar  sites.  The 
user  has  the  option  of  producing  just  trajectory  data  and  no  radar  data,  or 
both  trajectory  and  radar  data,  or  just  radar  data  from  trajectory  data  stored 
during  a previous  run.  The  reader  is  referred  to  a number  of  documents 
describing  prior  versions  of  the  program.  Several  of  these  are:  "Missile/ 
Satellite  Trajectory  Program"  April  1974,  a user's  guide  by  R.  Conti,  PRC; 
"Simulation  Program  for  Three  Degrees  of  Freedom  Trajectories", 

Technical  Memorandum  No.  EMA-TM-66-5,  Sept.  1966,  by  George  A.  Ellis, 
et  al;  "Cobra  Talon  Study  Computer  Programs",  Technical  Memorandum 
RADC/OC-TM -7 1 -4,  May  1971,  by  John  C.  Cleary  and  Leonard  C.  Gratch. 
Also,  refer  to  the  analytical  description  in  Volume  I,  Part  2 of  this  report. 

2„  Computer  Program  Operating  Environment 
a.  Computer 

Honeywell  6180. 


F 
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b.  Source  Language 
FORTRAN  Y under  GCOS. 

c . Memory  Requirement 
40K  words. 

d.  Typical  Processing  Time  Required 
0. 1Z  hours  (432  seconds) 

e.  Peripheral  Equipment  Requirement 

One  disc  file  (file  code:  08) 

Three  disc  or  tape  files  (file  codes:  09,  10,  11) 

f.  Non-system  Subroutines  Required 


ATMOSP 

BALCOF 

CONVER 

EQTNX 

ICERBM 

INITAL 

INTRAJ 

INPUT 

OUTPUT 

RKG 


Atmospheric  model. 

Ballistic  coefficient  subroutine. 

Conversion  to  radar  coordinates. 

Computation  of  acceleration  com- 
ponents . 

Computation  of  geocentric 
spherical  components. 

Initialization  subroutine. 

Input  trajectory  and  radar  data 
stored  on  files  for  computations. 

Input  subroutine. 

Output  subroutine. 

4th  Order  Runge -Kutta -Gill. 


g . Program  Limitations 


The  program  can  accommodate  no  more  than  20  perturbed 


trajectories. 

The  maximum  number  of  trajectories  which  can  be  gen- 
erated will  vary  with  the  selection  of  the  nominal  trajectory.  When  the 
nominal  trajectory  for  the  trajectory  perturbations  is  the  first  trajectory, 
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the  first  trajectory  and  up  to  20  perturbed  trajectories  can  be  generated, 
for  a total  of  2 1 . When  the  nominal  trajectory  is  the  third  trajectory, 
there  will  be  generated  the  first,  backward,  and  third  trajectories,  and  up 
to  20  perturbed  trajectories,  for  a total  of  23. 

The  program  can  accommodate  no  more  than  20  different 

radar  sites. 


For  the  radar  parameter  difference  calculations,  no 
more  than  10  different  trajectories,  10  different  radar  sites,  and  5 dif- 


ferent sightings  of  a trajectory  by  a site  are  allow'ed. 
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Inputs 


The  following  two  sets  of  inputs  (INPUT  1 and  INPUT2)  are  for 
the  program  controls. 

NAMELIST  INPUT  1 

Desc  ription 

Total  number  of  trajectories  simu- 
lated. If  K V.  - 1 , the  actual  number 
of  trajectories  simulated  will  be 
N1RAJ-2.  NT  RAJ  cannot  exceed 
23. 


Symbol  Name  Units 

NT  RAJ  None 


TM 

NSWTCH 


Min.  Maximum  time  allowed  for  any 

trajectory  from  start  to  finish. 

Main  processing  switch  for  the 
program. 

0 Produce  trajectory  data  only. 

The  data  tor  each  trajectory 
generated  will  be  placed  on  a file 
for  later  access. 


1 

2 

NAMELIST  INPUT  2 
Symbol  Name  Units 

IOUT1 


Produce  both  trajectory  and  radar 
data.  The  trajectory  data  will  be 
placed  on  a file. 

Produce  radar  data  only. 

Description 
Printout  option  No.  1. 


T Print  out  the  13  trajectory  para- 

meters from  the  radius  of  the 
missile  (or  satellite)  trajectory 
to  the  acceleration  in  longitude 
for  each  time  point  of  each  tra- 
jectory. The  time  points  are 
spaced  by  OUTINC,  and  each 
trajectory  is  considered  relative  to 
a geocentric  coordinate  system. 
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Units 


Description 


Symbol  Name 


IPLOT1 


IPLOT  2 


IOUT2 


KAT 


F 


T 


F 


T 


F 


T 


F 


T 


Print  out  the  7 trajectory  para- 
meters from  the  radius  to  atmos- 
pheric density  for  each  time  point 
of  each  trajectory  generated. 


Plotting  option  1 


Produce  a plot  file  of  the  8 radar 
parameters  from  slant  range  to 
inertial  phi  for  each  time  point 
each  detected  trajectory.  This 
plot  file  consists  of  data  produced 
from  all  input  radar  sites. 


Do  not  produce  this  plot  file. 


Plotting  option  2. 


Produce  a plot  file  of  the  13  radar, 
parameters  {calculated  for  each 
site)  from  slant  range  to  heading 
angle  for  each  time  point  of  each 
detected  trajectory. 

Do  not  produce  this  plot  file. 


Printout  option  2. 

Print  out  the  13  radar  parameters 
from  slant  range  to  heading  angle 
for  each  time  point  of  each  detected 
trajectory.  The  radar  parameters 
of  each  trajectory  are  computed 
relative  to  the  input  radar  site 
coordinates . 


Print  out  the  8 radar  parameters 
from  slant  range  to  the  inertial 
phi  angle  for  each  time  point  of 
each  detected  trajectory. 

Atmospheric  model  option. 

Use  the  atmospheric  model.  Atmos- 
pheric effects  will  be  considered 
in  the  generation  of  the  trajectories. 
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Symbol  Name 


KZ 


Units  Description 

F Do  not  use  the  atmospheric  model. 

Nominal  trajectory  selection  switch. 

T Select  the  1st  trajectory  as  the 

nominal  trajectory  for  the  tra- 
jectory perturbations. 


SPHERE 


IOUT3 


F .Select  the  3rd  trajectory  as  the 

nominal  trajectory. 

Spherical  earth  model  option. 

T Use  the  spherical  model  of  the 

earth. 

F Do  not  use  the  spherical  model. 

Printout  option  for  radar  para- 
meter differences. 

T Print  out  the  radar  parameter 

differences . 


F 

OUTENC  Min. 

INERTL 

T 

F 


Do  not  print  out  the  differences. 

Increment  between  time  points 
for  printout. 

Inertial  velocity  option. 

The  initial  missile  velocity  input 
is  the  inertial  velocity. 

The  initial  velocity  is  the  burnout 
velocity. 


Note:  The  spherical  model  of  the  earth  is  the  only  one  currently  present 

in  the  program,  so  that  the  value  of  SPHERE  has  no  effect  on  a 
program  run.  Also,  IPLOT 1 and  IPLOT2  cannot  be  simultaneously 
true.  Only  one  can  be  true  and  the  other  false,  or  both  can  be 
false. 
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The  following  set  of  inputs  are  for  the  initial  state  vector  of  the 
interceptor  and  the  subsatellite  parameters. 

NAMELIST  ENPUT3 


Symbol  Name 

Unit 

Description 

GAM 

Deg. 

Re-entry  angle  of  the  missile  with 
respect  to  the  vertical. 

BETA 

Deg. 

Heading  angle  of  missile  w.r.t. 
relative  north. 

VO 

Ft.  /Sec. 

Velocity  of  the  missile  relative 
to  burnout  at  epoch  or  inertial 
velocity  of  the  missile. 

HX 

Ft. 

Height  of  missile  at  burnout  or 
initialization  of  trajectory. 

THE 

Deg. 

Geocentric  latitude  at  burnout, 
+ north  and  - south  of  equator. 

GLAM 

Deg. 

Geocentric  longitude  at  burnout, 
east  of  Greenwich. 

THES 

Deg. 

Geocentric  latitude  of  the  target 
(subsatellite),  + north  and 
- south  of  equator. 

GLAMS 

Deg. 

Geocentric  longitude,  east  of 
Greenwich,  of  the  target. 

Note:  The  inputs  GAM  through  GLAM  above  could  also  be  interpreted  as 
parameters  for  an  orbiting  satellite,  rather  than  a missile. 

The  following  set  of  inputs  describes  the  radar  sites  for  which 
computations  are  to  be  made.  DMPUT4  is  not  read  if  NSWTCH  = 0. 

NAMELIST  INPUT4 

Symbol  Name  Unit  Description 

NSITE  None  The  number  of  radar  sites  to  be 

simulated.  NSITE  cannot 
exceed  20. 
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Symbol  Name 

Unit 

Desc  ription 

SLAT 

Deg. 

Geocentric  latitudes  of  the  radar 
sites,  + north  and  - south  of 
equator.  SLAT  is  an  array. 

SLONG 

Deg. 

Geocentric  longitudes  of  the 
radar  sites,  west  of  Greenwich. 
SLONG  is  an  array. 

SALT 

Ft. 

Altitudes  of  the  radar  sites  above 
sea  level.  SALT  is  an  array. 

ELIM 

Deg. 

Maximum  co-latitude  of  the  ele- 
vation angle  for  which  objects  are 
detected  by  all  the  radar  sites. 

If  NTRAJ > 3, 

the  velocity  perturbations  are  input: 

NAMELIST  INPUT5 

Symbol  Name 

Unit 

Description 

A 

Ft.  / Sec. 

Out  of  trajectory  plane  perturbation, 
+ ejected  to  the  left  of  the  nominal 
trajectory.  A is  an  array. 

B 

Ft.  /Sec. 

In  plane  perturbation,  + ejected 
backwards  from  nominal  trajectory. 
B is  an  array. 

C 

1 

Ft.  /Sec. 

In  plane  perturbation,  + ejected 
backwards  from  nominal  trajectory. 
C is  an  array. 
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4.  Output 

The  output  from  the  RADC  Trajectory  Program  is  a variable 
depending  upon  the  selection  of  the  program  options.  First,  a printout  of 
the  input  parameters  for  the  program  run  is  produced,  this  printout  and 
the  input  parameters,  themselves,  varying  according  to  the  values  of  the 
options.  Then  follows  the  printout  of  the  results  of  the  program  execution. 
The  main  processing  switch  for  the  program  (NSWTCH)  has  a great  deal 
of  control  over  the  type  of  output  coming  from  the  program.  If  NSWTCH-0, 
only  trajectory  data  will  be  printed  out.  Lf  NSWTCH=1,  both  trajectory 
and  radar  data  will  be  produced.  And  if  NSWTCH=2,  only  radar  data  will 
be  outputted.  The  following  lists  indicate  what  printout  is  produced  with 
what  option  values. 

When  NSWTCH-0  or  1 and  IOUTl=.  FALSE.  , the  following 
printout  of  trajectory  parameters  for  every  trajectory  generated  is  pro- 
duced: 


Symbol  Name 


Units 


Description 


NTRJ  None 

TLMEl+(I/IO) 

*OUTINC  Min. 


OUTTRJ(l) 


Ft. 


Number  of  trajectory.  When 
KZ=T,  the  second  trajectory 
will  be  numbered  4. 


Formula  for  the  calculation 
of  a trajectory  time  point 
for  printout.  The  value 
calculated  (and  printed  out) 
represents  the  time  from 
burn-out  of  the  missile  along 
its  trajectory  or  time  from 
the  initiation  of  the  satellite 
orbit  or  missile  path,  if 
that  is  appropriate. 

Earth-centered  radius  of  the 
trajectory  or  the  distance  of 
the  missile  or  satellite  from 
the  earth  center  at  the  time 
point  above. 
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Symbol  Name 

Units 

Description 

OUTTRJ(2 ) 

Deg. 

Position  in  latitude  of  the 
missile/satellite  in  its  tra- 
jectory at  the  above  time 
point. 

OUTTRJ(3) 

Deg. 

Position  in  longitude  of  the 
missile/satellite,  east  of 
Greenwich. 

OUTTRJ(4) 

Ft. 

Altitude  above  sea  level  of 
the  missile. 

OUTTRJ(5) 

Ft.  /Sec* 

Inertial  velocity  of  the 
missile/satellite  along  its 
trajectory. 

OUTTRJ(6) 

Ft.  2/Slug 

Ballistic  coefficient  at  the 
time  point. 

OUTTRJ(7) 

Slug/Ft.  3 

Atmospheric  density  at  the 
trajectory  time  point  for  the 
missile/satellite  altitude. 

The  trajectory  parameters  corresponding  to  the  next  time  point 
to  be  printed  out  are  stored  in  OUTTRJ(8)  - OUTTRJ(14),  and  so  on  for 
each  time  point  to  be  printed.  NTRJ  is  printed  at  the  top  of  a page  of 
printout.  The  time  point  - OUTTRJ(7)  are  printed  out  on  one  line  of  a page, 
next  time  point  - OUTTRJ(14)  on  the  next  line,  etc. , up  to  52  lines  per  page. 
NTRJ  will  start  the  next  page.  Each  successive  time  point  printed  out  will 
differ  by  OUTINC  from  the  previous  one.  This  may  not  hold  true  for  the 
very  last  time  point  as  it  may  differ  from  the  previous  one  by  0.01  min.  or 
more. 

If  IOUT1  = .TRUE,  and  NSWTCH=0  or  1,  the  following  tra- 
jectory parameters  are  printed  out: 

Symbol  Name  Units  Description 

NTRJ 

TIMEl+(I/IO) 

-OUTINC 

OUTTRJ(i)  Described  for  lOUTl  = 

. FALSE. 


IU-11 


p 


T3 


Symbol  Name  Units  Description 


OUTTRJ(2) 
OUTTRJ(3) 
OUTTRJ(4) 
OUTTR  J(5) 
OUTTRJ(6) 
OUTTRJ(  7) 
OUTTRJ(8) 

Ft.  /Sec. 

Geocentric  radial  velocity 
component  of  the  missile/ 
satellite  at  the  time  point. 

OUTTRJ(9) 

Deg.  / Sec. 

Geocentric  latitude  velocity 
component  of  the  missile/ 
satellite. 

OUTTRJ(IO) 

Deg.  /Sec. 

Geocentric  longitude  com- 
ponent of  velocity  of  the 
missile/ satellite. 

OUTTRJ(ll) 

Ft.  /Sec.  2 

Geocentric  radial  accel- 
eration component  of  the 
missile/ satellite. 

OUTTR  J (12) 

Deg. /Sec. 2 

Geocentric  latitude  com- 
ponent of  acceleration  of 
the  missile. 

OUTTRJ  (13) 

Deg. /Sec. ^ 

Geocentric  longitude  com- 

ponent  of  acceleration  of 
the  missile. 


What  was  said  above  for  the  printout  when  IOUTl=  . FALSE, 
essentially  holds  for  IOUT  1 = .TRUE.  The  difference  is  that  storage 
of  the  trajectory  parameters  is  not  the  same.  The  trajectory  parameters 
corresponding  to  the  next  time  point  to  be  printed  out  are  stored  in 
OUTTRJ(14)- OUTTRJ(26),  and  so  on  for  each  time  point  to  be  printed  out. 

The  number  and  types  of  trajectories  generated  are  basically 
controlled  by  the  input  variables  NTRAJ  and  KZ.  If  only  one  trajectory  is 
desired,  NTRAJ  would  be  set  equal  to  one.  If  perturbed  trajectories  are 
desired  with  the  nominal  trajectory  as  the  first  trajectory,  NTRAJ  would 
be  set  > 4 and  KZ  = .TRUE.  The  trajectories  on  the  printout  would  be 
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numbered  in  the  order  1,  4,  5, , number  4 representing  the  first 

perturbed  trajectory.  If  perturbed  trajectories  are  desired  with  the  nom- 
inal trajectory  as  the  third  trajectory,  NTRAJ  would  be  setl>  4 and  KZ  = 

• FALSE.  In  this  case  the  trajectories  would  be  numbered  1,2,  3,  4, 
Trajectory  2 is  the  so  called  "backwards"  trajectory,  with  time  going  in 
descending  order. 

Now  if  NSWTCH  =1  or  2,  the  following  set  of  radar  parameters 
will  be  printed  out  for  each  radar  site  and  each  trajectory  detected  by  the 
sites.  For  NSWT CH-1,  the  radar  data  will  follow  the  appropriate  trajectory 
data  printout.  For  NSWTCH=2,  there  will  be  no  trajectory  data  printout, 
only  radar  data.  There  will  be  no  radar  data  printout  for  the  second  tra- 
jectory and  if  a trajectory  is  not  visible  to  a radar  site,  a message  to  that 
effect  will  be  produced.  For  IOUT2  = . FALSE.  , the  radar  parameters 
printed  out  are: 

Symbol  Name  Units  Description 


NTRJ 

None 

Trajectory  number. 

ISITE 

None 

Radar  site  number. 

SCI 

Deg. 

Position  in  latitude  of  the 
radar  site. 

SC2 

Deg. 

Position  in  longitude  of  the 
radar  site. 

TIME2+(I/I01) 

-•-OUTINC 

Min. 

Trajectory  time  point.  See 
description  for  IOUT1  = 

. FALSE,  under  trajectory 
data  output. 

OUTRAD(l) 

N.  M. 

Radar  slant  range  to  the 
missile/satellite  for  the 
time  point. 

OUTRAD(2) 

Ft.  /Sec. 

Slant  range  rate  for  the 
time  point. 

OUTRAD(3 ) 

Deg. 

Radar  elevation  angle  for 
the  missile /satellite  at  the 
time  point. 

OUTRAD(4) 

Deg.  /Sec. 

Elevation  angle  rate. 
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Symbol  Name 

Units 

Description 

OUTRAD(5) 

Deg. 

Radar  azimuth  angle,  mea- 
sured clockwise  from  north. 

OUTRAD(6) 

Deg. /Sec. 

Azimuth  angle  rate. 

OUTRAD(7) 

e.  r.  u. 

Trajectory  radius  in  earth 
radii  units. 

OUTRAD(8) 

Deg. 

Inertial  phi  angle. 

The  radar  parameters  corresponding  to  the  next  time  point  to 
be  printed  out  are  stored  in  OUTRAD(9) -OUTRAD(  1 6 ),  and  so  on  for  each 
time  point  to  be  printed.  NTRJ,  ISITE,  SCI,  SC2  are  printed  at  the  top 
of  a page  of  printout.  The  time  - OUTRAD(8)  are  printed  out  on  one  line 
of  a page,  next  time  point  - OUTRAD(l6)  on  the  next  line,  etc.  , up  to  52 
lines  per  page.  NTRJ,  ISITE,  SCI,  SC2  will  start  the  next  page.  Each 
successive  time  point  printed  out  will  differ  by  OUTINC  from  the  previous 
one,  except  that  the  difference  between  the  first  and  second  time  points  and 
the  next-to-last  and  last  could  be  less  than  OUTINC. 

What  was  said  in  the  previous  paragraph  applies  to  one  sighting 
of  the  missile /satellite  by  a radar  site.  Each  sighting  of  the  missile/satel- 
lite by  a site  will  have  a group  of  printouts  similar  to  what  is  described 

above.  The  first  time  printed  out  for  a group  represents  the  initial  time 
I 

of  sighting  by  the  radar  for  the  current  sighting  (or  current  period  in  which 
the  missile/satellite  is  in  the  radar  coverage).  The  last  time  represents 
the  time  at  which  the  missile  was  last  visible  to  the  radar  for  the  current 
sighting.  The  printout  of  radar  parameters,  in  this  way,  can  reflect  when 
a missile  moves  in  and  out  of  the  radar  coverage. 

When  IOUT2  = . TRUE,  'and  NSWTCH=1  or  2,  the  following 
radar  parameters  are  printed  out: 

Symbol  Name  Units  Description 

NTRJ 

ISITE 

SCI 

SC2 


L 


4 


HI-14 


1 


Description 

Described  under  IOUT2  = 
. FALSE. 

OUTRAD(l) 

OUTRAD(2) 

OUTRAD(3) 

OUTRAD(4) 

OUTR  AD(5 ) 

OUTRAD(6 ) 

OUTRAD(7) 

OUTRAD(8) 


OUTRAD(9) 

Ft.  /Sec.  2 

Radar  slant  range  accelera- 
tion of  the  missile/satellite. 

OUTRAD(IO) 

Deg. /Sec. ^ 

Radar  elevation  angle  accel- 
eration. 

OUTRAD(ll) 

Deg. /Sec. ^ 

Radar  azimuth  angle  accel- 
eration. 

OUTRAD(  12) 

Deg. 

Missile  re-entry  angle. 

OUTRAD(  13) 

Deg. 

Missile  heading  angle. 

Essentially  what  was  said  for  the  printout  for  IOUT2  = . FALSE, 
holds  true  for  IOUT2  = . TRUE.  , except  that  the  storage  of  data  is  different. 
For  example,  time  point  - OUTRAD(13)  is  printed  on  one  line,  next  time 
point  - OUTRAD(26)  printed  on  the  next  line,  etc. 

Rada.r  Parameter  Differences 

The  radar  parameter  difference  calculations,  as  of  this  writing,  have 
not  been  fully  implemented.  The  following  discussion  will  describe  the 
output  as  it  will  be  produced  from  the  calculations. 

If  IOUT3  = .TRUE.  , the  program  will  compute  radar  parameter 
differences  and  print  them  out,  after  the  last  set  of  trajectory  and/or  radar 
data  printed  out.  The  differences  will  be  out-putted  for  each  radar  site  and 
for  each  perturbed  trajectory  when  NTRAJ  >■  4 in  a manner  basically 


Symbol  Name 

TLME2+(I/I01) 
: OUTINC 


Units 
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similar  to  the  printout  of  the  radar  parameters  discussed  previously. 

The  differences  represent  the  values  obtained  by  subtracting  the  radar 
parameters  for  the  perturbed  trajectories  from  the  corresponding  parameters 
for  the  nominal  trajectory  (trajectory  #1  or  #3). 

Radar  data  required  for  the  computations  must  be  stored  on  the  plot 
file  and  is  identical  to  the  data  that  is  placed  on  the  file  for  producing  plots. 
Normally,  this  data  would  be  stored  on  the  file  as  the  result  of  the  execution 
of  the  parts  of  the  program  preceeding  the  parameter  difference  portion. 

This  data  could  also  be  stored  from  a prior  execution  of  the  program  and 
used  in  the  difference  computations.  However,  this  latter  procedure  is 
not  recommended  since  all  program  inputs  required  by  the  computations 
should  be  identical  to  the  corresponding  ones  that  were  used  when  the  plot 
file  was  created.  When  IOUT3  = true,  therefore,  IPLOTlor  IPLOT2 
should  be  set  = true  and  NSWTCH  = 1 or  2.  It  should  be  pointed  out  that 
the  input  variable  KZ  will  determine  which  trajectory  will  be  the  nominal 
trajectory  for  the  computations.  With  KZ  = true,  the  nominal  trajectory 
would  be  the  first  trajectory;  with  KZ  = false,  it  will  be  the  third  trajectory. 
The  following  list  defines  the  output  parameters  when  IOUT2  = false. 


Output  Parameter 

Units 

Description 

NTRJ 

None 

Trajectory  number. 

ISITE 

None 

Radar  site  number. 

SCI 

Deg. 

Position  in  latitude  of  the 
radar  site. 

SC2 

Deg. 

Position  in  longitude  of  the 
radar  site. 

Time 

Min. 

Time  from  burnout  or  from 
initiation  of  the  trajectory 

of  the  target  (or  missile/ 
satellite).  Each  time  printed 
out  will  be  a time  at  which  both 
the  nominal  trajectory  and  the 
current  perturbed  trajectory 
were  detected  by  the  current 
site. 

Slant  Range  N.M.  Difference  in  radar  slant 

(nominal  trajectory  slant 
range  - perturbed  trajectory 
slant  range)  for  time. 


III-16 


Output  Parameter 

Units 

Description 

SI  Range  Rate 

Ft.  /Sec. 

Difference  in  radar  slant 
range  rate. 

Elevation 

Deg. 

Difference  in  the  radar 
elevation  look -angles  to  the 
trajectories  (nominal- 
perturbed)  or  targets. 

Elevation  Rate 

Deg. /Sec. 

Difference  in  radar  elevatioi 
angle  rate. 

Azimuth 

Deg. 

Difference  in  radar  azimuth 
angle,  measured  clockwise 
from  north. 

Azimuth  Rate 

Deg. /Sec. 

Difference  in  radar  azimuth 
angle  rate. 

If  IOUT2  = true,  the  following  list  of  output  parameters  is  produced. 


Output  Parameter 

NTRJ 

ISITE 

SCI 

SC2 

Time 

Slant  Range 
SI  Range  Rate 
Elevation 
Elevation  Rate 
Azimuth 
Azimuth  Rate 

SI  Range  Rate  Dot 

Elevation  Rate  Dot 

Azimuth  Rate  Dot 

Angular  Separation  in 
Radar  Beam 


Units 


Description 

Described  in  the  previous  list. 


Ft.  /Sec.  2 

2 

Deg. /Sec. 
Deg.  /Sec.  2 


D eg. 


Difference  in  radar  slant  range 
acceleration. 

Difference  in  radar  elevation 
angle  acceleration. 

Difference  in  radar  azimuth 
angle  acceleration. 

Total  angular  separation  in 
the  radar  beam. 
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Plot  File 

I The  previous  paragraphs  under  Output  have  dealt  with  the  printout 

on  listing  paper  from  a program  execution.  The  following  paragraphs  will 
I describe  the  plot  file  which  can  be  created  on  disc  or  tape  if  the  user 

exercises  the  appropriate  input  options.  By  setting  either  IPLOT1  or 
IPLOT2  = .TRUE,  (when  NSWTCH  = 1,  2)  data  will  be  placed  on  the  file 
so  that  off-line  plots  of  radar  parameters  (range,  azimuth,  elevation,  etc.) 
can  be  produced.  The  plots  can  be  drawn,  from  data  cards  punched  out 
from  the  file,  on  the  Hewlett-Packard  9820A  calculator /plotter  through  the 
use  of  the  Generalized  Data  Entry  and  Plot  Program.  See  Volume  II  for  a 
detailed  description  of  this  program.  The  Plot  Program  XYNETICS  Plotter, 
developed  for  the  first  modified  version  of  the  trajectory  program,  can  handle 
the  case  of  one  trajectory  and  one  radar  site,  only.  The  format  of  the  file 
for  each  generated  trajectory  which  is  subject  to  a radar  search  and  detected 
by  the  radar  is  given  below.  Logical  records  nos.  1 through  7,  . . . , n contain 
the  data  for  one  sighting  of  the  trajectory  (or  target)  by  a radar  site.  They 
will  be  repeated  for  each  additional  sighting  by  the  site;  they  will  also  be 
repeated  for  each  sighting  of  the  trajectory  by  each  additional  radar  site,  if 
multiple  sites  are  to  be  processed.  Refer  to  Figure  Hl-1  which  illustrates 
the  layout  of  the  file. 

Logical  Record  No.  1 

I 

Symbol  Name  Units 

TIME3  Min. 

IPLOT2 

T 
F 

102  None 


Description 

Initial  time  of  sighting  missile 
trajectory  at  the  radar  site. 

Plotting  option  2. 

Plots  for  13  different  radar 
trajectory  parameters  can  be 
produced.  A total  of  12  plots 
can  be  drawn. 

Plots  for  8 radar  trajectory 
parameters  can  be  produced. 

A total  of  7 plots  can  be 
drawn. 

Number  of  radar  parameters 
which  can  be  plotted.  102  = 8 
if  IPLOT2  if  false,  13  for 
IPLOT2  true. 
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Logical  record  #1 


Logical  record  #2 


Logical  record  #3 


Logical  record  #4 


Logical  record  #5 


Logical  record  # n 


TIME 3,  IPLOT2,  102,  EOF 


A 

f 

|NREC3,  NREC4,  NREC5,  EOFIO, 

SWTCH2 

A 

OUTPLT 

l 

| 

V 

NREC3,  NREC4,  NREC5,  EOFIO, 

1 

SWTCH2  I 



OUTPLT 


| 

NREC3 ~ NR”eC4,  NREC5,  EOF  10,  SWTCH2 

(=true)  (=true) 


S' 

TIME  7 


sy 


Figure  III—  1 . Plot  File  Format  for  Each  Trajectory.  (1  of  2) 


NREC3,  NREC4,  NREC5,  EOF  10,  SWTCH2 
(=true)  (=true) 


V 

Logical  record  #n 

TIME7 

V 

Logical  record  #1 

TIME3,  IPLOT2,  102,  EOF 

(=true) 

Radar  Site  2,  1st  Sighting: 

Logical  record  #1 

i 

TIME3,  IPLOT2,  102,  EOF 

1 

1 

! 

_v 

Last  record  on  file 

TIME3,  IPLOT2,  102,  EOF 

( =true) 

Figure  III- 1 . Plot  File  Format  for  Each  Trajectory  (2  of  2) 
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Symbol  Name 
EOF 


Units 


De  scription 

Switch  variable  to  denote  the 
end  of  data  for  the  current 
radar  site  and  the  current 
trajectory. 

T There  is  no  more  data  on  the 

file  for  the  current  site  and 
trajectory. 

F Radar  data  follows  for  the 

current  site  and  trajectory. 


Note  that  the  description  of  IPLOT2  above  is  somewhat  different  from  that 
given  under  Inputs.  The  description  above  is  given  mainly  from  the  standpoint 
of  a plot  program. 


Logical  Record  No.  2,  4,  6, 

Symbol  Name  Umts 

NREC3  None 

NREC4  None 

NREC5  None 

EOF  1 0 

T 

F 

SWTCH2 

T 

F 


Description 

Number  of  time  points  in  the 
radar  trajectory  data  on  the 
following  record. 

Total  number  of  time  points 
in  the  following  record  of 
radar  data  and  all  previously 
input  records  of  data  for  the 
current  sighting  of  the 
missile  trajectory  by  the 
radar. 

Number  of  the  following 
record  of  radar  data  for  the 
current  sighting. 

Switch  variable  to  signal  the 
end  of  the  set  of  data  for  the 
current  missile  sighting. 

No  more  radar  data  follows 
for  the  current  sighting. 

More  data  follows  for  the 
current  sighting. 

Switch  variable  for  plot 
program  to  read  last  time 
missile  is  visible  to  the 
radar  for  the  current  sighting. 

Read  in  this  last  time  from  the 
file. 

Do  not  read  in  this  last  time 
from  the  file. 
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Note:  In  the  current  version  of  the  program,  NREC4  and  NREC5  are 

not  used,  and  the  last  time  of  missile  visibility  to  the  radar  is  not  written 
on  the  plot  file.  This  means  SWTCH2  will  always  be  false,  and  when  EOFIO 

is  true,  logical  record  no.  2,  4,  6, will  be  the  last  record  on  the  file 

for  one  sighting  of  the  missile  by  the  radar.  The  very  last  record  on  the 
file  will  be  logical  record  no.  1 with  EOF  true  following  data  for  the  last 
trajectory  and  final  sighting  by  the  last  radar  site. 


Logical  record  no.  3,  5,  7, 


Symbol  Name 


Units 


Description 


OUTPLT 


Output  array  for  outputting  the 
data  on  this  record.  There 
are  NREC3*I02  data  words  on 
this  record.  The  contents  of 
OUTPLT  are: 


OUTPLT(l) 


N.M. 


Radar  slant  range  for  1st  time- 
point  of  this  record. 


OUTPLT(2) 


Ft,  /Sec. 


Radar  slant  range  rate  for 
1st  timepoint. 


OUTPLT(3) 

OUTPLT(4) 

OUTPLT(5) 

OUTPLT(6) 

OUTPLT(7) 

OUTPLT(8) 


Deg. 

Deg  /Sec. 
Deg. 

Deg/Sec. 


Radar  elevation  angle. 

Radar  elevation  angle  rate. 
Radar  azimuth  angle. 

Radar  azimuth  angle  rate. 
Trajectory  radius  in  eru. 
Trajectory  inertial  phi  angle. 


If  IPLOT2  = .TRUE,  the  following  parameters  will  also  be  on  this  logical 


record: 


OUTPLT(9) 
OUTPLT(IO) 
OUTPLT(ll) 
OUTPLT(12) 
OUTPLT(  13) 


Ft.  /Sec. 


Deg. /Sec. 


Deg. /Sec. 
Deg. 

Deg. 


Slant  range  acceleration. 
Elevation  angle  acceleration. 
Azimuth  angle  acceleration. 
Missile  reentry  angle. 
Missile  heading  angle. 
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Note:  If  IPLOT2  if  false,  there  are  only  8 different  radar  trajectory 

parameters  on  this  record  for  each  time  point;  if  IPLOT2  is  true  there 
will  be  13.  Each  parameter  will  be  repeated  every  102  + 1 word  of  OUTPLT; 
e.g.  , OUTPLT  (102+1)  contains  the  slant  range  for  the  2nd  time  point  of  the 
record,  OUTPLT  (102+2)  contains  the  range  rate  for  the  2nd  time  point,  etc. 
Any  pair  of  consecutive  time  points  for  any  records  containing  radar 
parameter  data  are  separated  by  the  same  increment  in  time.  That  is,  the 
time  increment  between  consecutive  time  points  has  been  set  at  0.  1 min. 
for  all  radar  data  on  the  plot  file. 

If  SWTCH2  is  true  (not  currently  allowed),  the  following  record 
will  be  written  on  the  file.  It  will  be  the  last  record  on  the  file  for  one 
sighting  of  the  missile  by  the  radar  site  and  is  used  mainly  in  the  computation 
of  radar  parameter  differences. 


Logical  record  no.  n 


Symbol  Name  Units  Description 

TIME7  Min.  Last  time  of  sighting  (or 

detection)  by  the  radar  site 
for  the  current  missile 
sighting. 

5.  Main  Logic  Flow 

Figure  III-2  is  a flow  chart  of  the  main  logic  of  the  program. 

It  is  basically  a flow  chart  for  the  executive  (main  program)  of  the  program. 

6.  Sample  Job  Stream 


The  sample  job  stream  following  Figure  III-2  illustrates  the 
program  setup  for  a 1 radar  site  and  8 trajectory  run.  The  nominal  trajectory 
for  the  perturbations  was  chosen  as  the  1st  trajectory.  The  job  stream  is 
setup  to  place  radar  data  on  the  plot  file  so  that  plots  may  be  produced  later 
if  so  desired.  In  the  job  stream,  file  09  stores  trajectory  data  and  file  10 
stores  the  radar  data  to  be  plotted.  The  sample  output  and  sample  plots 
included  in  this  document  were  produced  by  executing  this  sample  job 
stream.  The  output  and  plots  herein  included  are  for  the  first  3 trajectories 
only.  Note  that  the  second  trajectory  is  labeled  number  4.  Also,  the  input 
data  of  the  job  stream  causes  circular  orbit  trajectories  to  be  generated. 


i_ 
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Set  Counter  for 
Trajectory 
Generating  Loop 
K = 1 


Set  Integration 
Loop  Counter 
K9  = 1 


//Trajectory 
sTime(T)  > 

Tmax  > 


Compute 
Trajectory 
Position  and 
Velocity 


Compute 
T rajectory 
Acceleration 
Components 


Figure  III-2.  Logic  Flow  Diagram  for  the  RADC  Trajectory  Program  (1  of  9) 
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Figure  III-2.  Logic  Flow  Diagram  for  the 

RADC  Trajectory  Program  (3  of  9) 
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M = 2 Trajectory 


Perform 

Initialization 


T = T + To 


Set  Counter 
for  Trajectory 
Generating 
Loop  K6  = 1 


T ^ 0 


Set  Integration 
Loop  Counter 

K8  = 1 


18  = K8  + 1 


Compute 
Trajectory 
Position  and 
Velocity 


K8  > IT 

\ ? 


Compute 
T rajectory 
Acceleration 
Components 


/Printout 
* Trajectory 
Data  When 
Buffer  is  Ful 


Figure  IH-2.  Logic  Flow  Diagram  for  the  RADC 
Trajectory  Program  (4  of  9) 
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Figure  III-2.  Logic  Flow  Diagram  for  the  RADC 
Trajectory  Program  (6  of  9) 


Set  Trajectory 
Counter 

I = 4 


Figure  IH-2.  Logic  Flow  Diagram  for  the  RADC 
Trajectory  Program  (9  of  9) 
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Sample  Job  Stream  for  the  RADC  Trajectory  Program 
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Source  Listing  of  the  RADC  Trajectory  Program 


CHXSSAt  MISSILE/SAtELLITE  TRAJECTORY  PROGRAM 

i - - IMPUI/QUIPUI  not  2, MULTIPLE  »XlE/ TRAJECTORY  VtlSIoH 

e this  is  a general  perturbation  program  that  predicts  the  position, 

e velociix.asd  acceleration  or  a vehicle  hhetheb  a?  a1*  ea*th 

c CRBITIMQ  SATeLUIe  OR  BALLISTIC  MISSILE, THE  FORMULATION  i»  BREED 

t PPOH  THE  SUllr.ltlCAL  IHTEaa^TlQE -Ot-IHE  im.R.ICAt  Ifllil  51  the  EAPTH. 

C The  1959  ardc  *tmos?hsRIc  model  a>d 
C The  ea»th  wind  a*e  included. 

C This  routine  drives  the  program. 

C THE  HAIR  SUBROUTINE  GROUPINGS  called  are 

__e 1.  tQINX  - cPMU’TfS  AcCpLylATyoE  COMPONENTS  

C 2.  cONVek  - COMPUTES  SENSOR  PARAMETERS 

c 3.  RUG  - USING  A 4IH  0R5ER  BUNGE  KUTTA-Glli,  NUMeRxcM,LT 

c INTEGRATES  The  EOUaTIONS  or  MOTION 

c all  data  associated  with  the  mathematical  model  or  the  earth  a>e 

_C g&Qfl  .MAKSilSONt-B^  x_B AK.gE»  E . ANC  WESTRONjS.I,  ANAITSIS  REP 

c standardization  or  astrodywamic  constants, 

double  precision  x , id , xdd ;to , tm 

DOUBLE  PRECISIOS  TC.II.XK.TX 

*»T.H,XYZ,RSL,PZ.*,W 

DOUBLE  PRECISION  TN.STK _ . 

DOUBLE  PRECISION  Pl.ZK.3l.GEO 


DOUeLI  PRECISION  Ga3iBSTa»SX»V0,THE*GLaM,Sc1»Sc2*aH#THeS.5LaMS 
*»E.ELIM,SLAT.SLORG.SALT 

cokmon/e/e/elim/elim/ij.j/inom.1, j, jsight.tst art .tend 

COMMON/MS/  GaM.BETa.HX. VO.-HE.GLaM.SC1.Sc2, aH.THES.GLaMS 

CQHM0»/T3/T.H.Xlt.RSL.PE  

►rA/R,W/JX/jX/TiME2/TlME2 
COM.MON/BS/  X(?),  XD  i 3 } . XDC(3) 

*?GECXK/GEO.XK 

►PSWSW/SVICH  1 ,SUTcH2/SW10/S«JcH  IQ 
,rSW3SW«/SATCH?.Si(TCH4 
trsW5SV6/S'«,TcH5.sWTcH6  _ 

‘7SW7/sWTcH7/SV9/SVTcH8/SW9/SWICn9/NSWTcH/NSWTcH 

*fTIKE5/TIiME5 

►PTSIGHT/TIMESK 1 j.  10. 5 ) .Tl-IESF < 10, 10, 5 ) , NSI5HT ( 10,10) 
‘/OPTION/IOUT1,IOUT2,kZ, IPLOT 1,IPLOT2,KaT, SPHERE,  Ol'TINC,IOUT3 
*70UTRJ/0UTTRJ( 5 . ),OUTRAd(50:0).OUTPLT(5000) 

►fNTBA'3/ITM _ _ 

COMMON/GE/ZK.Bl.P 1 
CoMKON/AX/TK,M 

COMMON /INCUT/ IN COUT, IOUT . NOFF 1 , NOFF2 . NOFF3 , IOUT A 
‘7T0/T0/IT2/IT2.IT 

C0MM0N/nR/nREc1.8REc2,:;REc3,NREc4,NREc5,NREc 

*710/10,10  1,102  

CCMMON/KR  7/NREC7  . NOFF  4 

*?ISITr/lSlTE/SlTRS/NSlTE.SLAT(20),SLONG(20),SALT(20) 


00000010 

OOOOOU20 

00000030 

00000040 

00000050 

00000060 

00000070 

0000008 

0000009 

0000010 

0000011 

0000012Q 

00000130 

00000140 

00000150 

00000160 

00000170 

0000018” 
00000190 
00000200 
00000217 
00000220 
00000230' 
0000024" 
0000025r 
0000. 260 
00000270 
00000280 
0000029  1 
00000300 
00000310 
00000320 

ooooo33: 

0000035 j 
00000370 
00000380 
0 000039  ' 
00000400 
000004  1 .1 
00000420 
O00OC425 
0000043” 
0000 J44' 
0000045 0 
0000046C 
00000470 
OOOOJ4R  ) 
0000049  '■ 
00000507 
OOOOOjI  ' 
OOOOO52C 
00000530 
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0*0  OlO 


LOGICAL  IOUT1.IOUT2,KZ,IPLOT  1,mOT2,KAT,«PHERE 

*>IOUT3«S KTCHI, SWfcHS.SwcH 10 

LOGICAL' SWTCH3.S9TCHU 
LOGICAL  SWTcHS.S JICH6 
**SWTCH7,SVTCH8,S0TCH9 

c input  data 

call  input  ' 

R=1 

C SET  integration  step  size  and  number  or  integration  steps 

260  TO=0.1D-i 
IT=’0 

TINC=TO*IT 

IFtNSVTcH.EQ.T1GO  TO  250 

5 INITIALIZATION  _ _ 

call  inital 

C initialize  kissile/satellite  trajectory 

£ALL  IC1RM..  . . ...  

IF ( M . EQ  . 2 ) GO  TO  1 5 

call  eqtnx 
105  CALL  output 

IF(K.EQ.2)G0  to  6 
Call  STORTR 

C " MAIN  PROCESSING  LOOP  FOR  TRAJECTORY  GENERATION 
20  DO  16  K=  1 » 60 

C INTEGRATION  LOOP 

DO  1 K9=1,IT 

IF  (T.GE.TF-  ’ . D-5  ) GO  TO  2’ 

C PERFORM  RUNGE-KUTTA  INTEGRATION 

CALL  RKO 

C COMPUTE  ACCELERATION  COMPONENTS 

CALL  EQTNX 

t-t+tc 

IFtT.GT. (TM+ 1 .OD-' ) .OP  . v(  ' ) .GT.GEOIGO  TO  21 
1 CONTINUE 

ICUT  - TOUT  + IT 


0000  >5« 
0000055" 
U000056" 
0000057 
0000058  . 
0000060 J 
00000610 
0000062. 
00000630 
000006U1- 
0000065 Q 
0 0 0 0 0 6 6 ri 
00000670 
0000068'. 
00000690 
00000700 
00000705 
00000707 
00000710 
0000072$ 
0000073 
000007UO 
0000075. 
0000976C- 
0000077 
0000078. 
0000.79 . 
00000800 
0000 081 ? 
0000 .86 
00000865 
0000.89 
00009900 
00000910 
00000920 
0000093  3 
000009U3 
JOOOc  95 "! 
00000960 
0000097  ; 
0 0 000  9 8 ) 
00000990 
0000 10  0 
00001010 
0 0 0 0 1 0 3 1 
0000  10UC 
0000105  ' 
r 000106" 
0 0 0 0 1 0 6 5 
0000107" 
0 0 00  1 U 6 
0000 1 c 9 j 
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o no 


00001100 

_C ITOBE  TBA JICIQ1T  DATA  ffl8  QUItMt . 00001  1 10 

00001120 

iruoo’i.aE.iscouticjuL  stqftj  00001130 

00001 140 

C 2 BIST  OUT  IBAJBCI QRI  DAXA  0000115? 

00001180 

xr(aitcnaE«MQffi  icau  filar* 00001170 

00001 180 
00001 190 

C STORE  TRAJECTORY  TATA  EOF  FA5AB  COMPUTATIONS  00001200 

00001210 

CALL  STOFTR  00001220 

mjtAxcL.sEiaam)sajto  jsa oooo 1 2 Jo 

GO  TO  16  00001240 

00001250 

C OUTPUT  TRAJECTORY  DATA  ON  A PILE  00001260 

000  0127'' 

150  IF ( SWTCH9 ) CALL  OUTTFI  0000128C 

SWTCH9a.PALSE. . 00001290 

CALI  OUTIr  00001300 

16  CONTINUE  00001310 

GO  TO  20  00001320 

21  IT  C X ( 1) .OT.GEO^GO  To  2 00001325 

6W  TcH  3*  .TRUE.  00001330, 

2 rOMTTNUE 00001340 

00001350 

C PRINT  OUT  lEAUBCrO*!  DATA  0000136? 

00001370 

Call  printt  000013*0 

00001390 

_C fiUtrJI-IEAJXCIOlX.  DATA.  Qt!  A Pill ..  0000140? 

0000141? 

IF  ( SWTCH9  ) CALL  OUTTFI  00001415 

IF(NFEC7,NE,  1 CALL  OUTT*  00001420 

CALL  OUTTR  00001430 

IF(iri,GI.2)cAlL  ST0FT2  00001431 

IT ( NSWTcH . eQ . ' >50  TO  17  _ 00001432 

GO  TO  25r  C0001435 

6?  CONTINUE  00001440 

00001450 

M * 2 TRAJECTORY  00001450 

0000147  . 

C SET_INTEGR{iTI9N  STEP  3J2E  ANP  NUMBER  or  STEPS  00001480 

c * 0000149. 

to=-o,oid:  00001500 

IT=10  0000151'1 

iF(5»CHl-')IT=IT2  0000152. 

J5  0 4 1 k8=1iXT  0000153.' 

£ALL_RKG_  _ _ 0000154^ 

CALL  EQTNX  " “ OOOOI55, 

T=T+TO  00001560 
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IF(T.L£. 1. jD-5»G0  To  86 
tl  CONTIS  UE  _ _ 

f I M E 2 * T 
call  stortj 

IF ( SWcH 1 : ) iT» 1 0 

c 

C MAIN  PROCESSING  LOOP,“«2  trajectory 

70  Do  18  K 6 =”' 760 
00  to  K8=1,IT 
call  rkg 
CALL  IQTNX 
T=T*TO 

U1Xa.UjA,^-_5JS.C  7Q.  86 

to  CONTINUE 

IOUT=IQUT+lT 

iFdOUT.GE.INCOUr  ICaLL  STORTJ 
ir(NREC1.5E.!'CPF1)CAU  RRlN'IT 
*8  CONTINUE 

GO  TO  70 _ _ __  . 

e6  SVTCH3* . TRUE. 

CALL  PRINTT 
C 

C COMPUTE  RADAR  PARAMETERS 

c 

~ 252  6OC5000isiTE  = ^NSlfE 
CALL  INITaL 

c 

C INPUT  TRAJECTORY  DATA 

C 

CAii_IiIRAJ__  _ _.  . _ ... 

IOC  CALL  TRAJIN 

TF(vREC7.EQ,u)GO  TO  200 
JX=1 

DO  300  I = ’,}!REC7 
CALI  TRAJX 
_CALL  CONVER 
S V T C H 5 ■ , TRUE , 

if(e.gt.eli?;Tgo  TO  120 
swtch5=. false. 

SVTCH6=. FALSE. 

I0UTA*I0UTA+I7 
IF  ( SWTCH  1 ) GO  TO  1 '5 
IF ( SWTcH U ) c ALL  STRAq2 
130  IFtlPLOTI .OR.TPLOT2)30  TO  135 
C 

C STORE  RADAR  DATA  TOR  OUTPUT 

C 

1 l5_IFiSWTCH4)Q0  TO  120 

IF(lbUTA,GE.INCOUT)CALL  STORD' 
IF(NREC2,GE.NOFF2)CALL  OUtRD? 


00001570 
0 C 0 0 1 5 8 " 


00001585 


00001590 
00001600 
00001610 
00001620 
00001630 
OOOOHud 
0000165: 
0000166: 
00001670 
OOOOHSO 
0000  1 69  j 
0000170 C 
0000171? 
0000 1 72 J 
00001730 
300017UO 
00001750 
00001760 
0000177Q 
00002000 
00002010 
0C302C20 


00002025 
00002030 
00002OUO 
00002060 
00002070 
00002080 
00002090 
000021  JO 
C000211C 
C30C212, 
00002  1 3C 
000021U' 
00002160 
0000217 
0000218 
00002  19  ■ 
000022. '. 
00002210 
0000222. 
0000223; 
000022U  : 
0000225 
00002260 
0000227: 
00002280 
U000229. 
000023.': 
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IrtaWTCHOoQ  IQ  <25 

in  .sox.swTCH'iXlc.smosioo  tB  i«o 

00  TO  125 

SIOBX.OUTPU*  C At  A BOB  LAST  YISIB1E  »0l«I 


JAA  1MXCH6«»IBUL. 

Call  stradl 

IF (NBIc2,»Et- )CAtt  OUTRD* 

CALL  OUTEOP 


RE-INITIALIIE  SSITCHES 


1 1*3 


135 


SKTCH1-.TRUE. 

5WICH . I P.'JE  . 

XF(IPLOT1.0R.XBLOT2)GO  TO  145 
GO  TO  125 

SWTCH2p.TRUI. 

IF(NREC3,NE.  ) CALL  PLTAR1 

call  pltaF2 

GO  TO  123 


YI&1BU  J.Q.UX-. 


IF ( SWTCH2 ) CALL  PIT  APE 
SWTCH2-,  FALSE, 

SWTcH7«.f AlS£. 

STORE  RADAR  DATA  FOR  PLOTTING 


CALL  STORTP 

OUTPUT  DATA  ON  PLOT  TAPE/FILE 

lF(NREC3tGE,NOFF3)CALL  PLTAP1 
GO  TO  IK  


1'5  SWTcH'e.rALSE. 

SWTCHS". false, 

CALL  STORAg 
GO  TO  130 
125  CONTINUE 

t=T*TINC 

300  CONTINUE 
GO  TO  IOC 

PRINT  OUT  RADAR  DATA 
200  CONTINUE 


IFCNREC7.FQ, ,)T-T-TINC 
IF{  ,N0T.SV'TCK6)G0  TO  23 


00002310 
00002323 
00002330 
Q000234Q 
00002350 
OOO0239Q 
00002370 
0Q002380 
00002390 
0000240 0 
00002410 
00002420 
00002430 
00002440 
00002430 
00002480 
00002470 
0000248 0 
00002490 
00002500 
00002510 
00002520 
00002530 
00002540 
00002550 
00002560 
00002570 
00002580 
00002590 
00002600 
0 0002610 
0000262g 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
00002700 
00002710 
0000272'j 
0000273 J 
00002740 
00002^5 0 
00002760 
00002770 
00002780 
00002790 
00002800 
06002S1O 
00002820 
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24  ir (NBEC2.NE.  )CALL  0 U T R D R 

Ca LL  OUTIPB 

CALL  printr 

IF( SWTCH8 ) CALL  N 0 T V i s 

IF(SWTCH7)G0  TO  5 0 

output  last  recoros  on  plot  tXpe/file 

IF ( SWTCH2 ) GO  TO  22 ~ 

IF(KBEC3,KE, j ) C A t L PLTApI 

Call  pltap2 
Call  PLTAP3 

GO  TO  50.. 

fcoBTiaag 

call  plta?3 
GO  TO  5CC. 

23  IF(T.LT.TIME5  + 0.  :1)G0  TO  24 
Call  convfr 
IF(E.GT.ELlM)GO  TO  24 
_ .CJLii.SISAIL  _ 

GO  TO  24 
500  CONTINUE 
'7  M=M*1 

lF(MtE3,21AND,KZ)M=4 
IF (M.LE , ITM ) GO  TO  25 

lr(IOUT3)GO  TO  i. 

iO'C  stop 

COMPUTE  RALAR  PARAMETER  DIFFERENCES 
WHITE  NOMINAL  TRAJECTORY  ON  A SEPARATE  FILE 
1 0 0 0 CALL  OUTNCM 

READ  AND  STORE  TIMES  OF  SIGHTING 

CALL  timest 

“A  IN'  PROCESSING  LOOF  PARAMETER  DIFFERENCES 

INOM  r 1 
a = 4 

IlASS=  1 

if; ,ndt.kz)I=  ' 

IF  ( ..;OT.KZ)INOM=3 
LOO?  ci  SITES 
106*  J=1 

104*  11  = N SIGHT  f I N 0 M , J T 

lF(tIMFEl(I,J,  1)  .GT'.TIMESFdNOiii  j.II)  )G0  TO  1020 
II=NSIGHT(I, J) 


o 0002  8 3 J 
00002840 
0000285k 
00002^60 
C0002870 
000028*0 
00002890 
00002900 
00002910 
00002920 
00002930 
00002940 
00002950 
OOOO296O 
00002970 
000029*0 
00002990 
00003000 
00003010 
00003020 
C0003O36 
1;  0003040 
00003045 

0000304^ 

00003U47 

00003050 

; 0 0 0 3 0 6 0 

00003070 

000030IC 

00003090 

00003095 

00003096 

00003100 

00003  1 76 

000031  1 0 

U000312* 

00003130 

00003135 

00003140 

.000315  ’ 

00003160 

00003  17  ' 

00003  1 P : 

0000319 

(.00032*0 

000032  4 

000032 C5 

000032-6 

0000321* 

0000322 

*0003230 

0000324  ' 


m-41 


moo  non 


IFCriKESKlKCm.J,  - ) .ST.TIHESFd,  J,II))50  TO  ’020 
DETERMINE  THE  INTERSECTIONS  Of  TIME  SETS 
CUl  INTER 

INP’.T  RADAR  data  CORRESPONDING  TO  TIME  SET  INTERSECTIONS 

cal:  intdat 
■’020  IF(  J.GE.NSITBJgO  to  1030 
J = J+  1 

GO  TO  104C 

1030  IE (I,GE,ITM)STCP 

.53. 

IF(IPASS.Ne.1)GO  TO  1050 

1PASS*2 
1 = 3 

1050  1=1+1 

GC  TO  1 C 6 . 

_ -End  ...... 

•**EOF 


.000325: 

OOC0326; 

00003210 

0000328O 

00003290 

00003310 

00003310 

00003322 

00003330 

ooooHoro 
00004010 
00004020 
00004030 
00004040 
00004050 
00004080 
Q0004O7C 
00004080 
00004090 
00004  100 
OOOO5OIO 
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17,891 

AVnOfPMSIZC  HODtL 

53 

Pfi-8.  1 1 89D-8 

51* 

30  TO  17 

55 

39 

3K1-.2U1858D-1* 

56 

Sk2«8.9u»2oC 

57 

P|-**.29lD-9 

58 

K|-9.:08 

59 

3l 

C6-1  ..D0*SIC1*(H2P-HB) 

6 ' 

St— ( 1 ,0D0*SK2) 

6“ 

PI-  PB* 1 CD*  * ST ) 

62 

BltUBB 

63 

37 

Pt-PB*fiEXP(-8K3«(H2P-HB)  ) 

6- 

SITU** 

65 

no 

[ 


76 

17.492 

BALLISTIC  COEFFICIENTS 

CBAl 

CO F BALLISTIC  COEFFICIENTS 

X. 

SUBROUTINE  BALCOF 

3 

DOUBLE  PRECISION  Z*.Z2,z3,Z4.z5.b1 

w 

DOUBLE  PRECISION  H B , HB2 , H B3 , HB4 , P 1 . P2 

q 

DOUBLE  PRECISION  XI  1 , XL  2 , XL  3 , XL  4. XL  5 

6 

DOUBLE  PRECISION  GF , T«, X, T , H , XXZ . RSL . 

- 

double  precision  xd.xdd 

g 

double  PRECISION  P5, P7, P9,P  1 1, P13, p 14 

9 

COKMON/BS/X(3),XD(3),XDD(3) 

1 

COMHON/AX/T«.K/TS/T,K,XrZ,RSL,PZ 

1 1 

COMMON/GE/ZK(Bl#Pl 

1 2 

DATA  Gfl/  1.407639Dl6/ 

1 3 

HB  = H * 1 . D — 3 

1 u 

IF  (H5.GE.3.445D2)  GO  TO  SO 

15 

Hb2  = hb*hb 

16 

HB  3 = H B 2 * K B 

17 

H B 4 = HB2*HB2 

18 

IF ( M . LE , 3 ) GO  TO  3 

19 

IF1M.EQ.4)  GO  TO  4 

21 

********  M = 3 FV-9-2B  ******** 

2 2 
23 

3 

Pi  = 0.000 

2 - 

P2  = S.CD1 

-•q 

X.  - 

P 3 = ' . 802 

26 

P 4 = 2.7D2 

27 

IFtHB.GE. P4)G0  TO  18 

26 

IF(HB.GE.P3)  GO  TO  20 

29 

IFtHB.GE. P2)  GO  TO  22 

3 

IFtHB.GE'.  PI)  GO  TO  24 

3 ’ 

GO  TO  90 

32 

18 

XL  1 = .64730-7 

33 

X L 2 = . 3864D-S 

34 

Xi.3  = -.42630-1 

35 

XL4  = ,1417D*2 

3 6 

XL5  = 1 124D+4 

37 

GO  TO  2 

3 8 

20 

XL  1 = .2573D-6 

3 9 

XL2  =- . 4 352D-4 

4 

XL3  * -.45970-1 

4 1 

XL4  = . 1 25  3D  + 2 

4 t 

XL5  =-.42040+3 

43 

GO  TO  2 

4 — 

22 

XL  1 = - . 1 9 4 4D-5 

45 

XL2  = .7391D-3 

4 D 

XL  3 = 1 04  COO 

47 

XL4  = . 7063D+  1 

4g 

XL  5 = . 1 6 4 9D 3 

49 

GO  TO  2 

5 

24 

X L 1 = . 1 8 35d-c 

51 

XL2  = -.227-0-3 

52 

XL3  = -.57270-2 

IU-45 
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BALLISTIC  COirrXcZEVTS 

53 

U4  - ,2f65D1 

54 

XLS  - .20090 3 

55 

30  TO  2 

56 

a 

C 

56 

59 

4 

M • 5.0D1 

60 

P2  • 1.4002 

61 

PI  - 2.302 

62 

P3  • 3.102 

63 

IP(HB.«T.P5)  50  TO  90 

64 

IliHB.GE, P4)Q0  10  40 
I T ( HB , 01. P2 ) 90  TO  41 

65 

66 

IPtHB.Sl'.H  )00  TO  42 

61 

50  TO  90 

68 

40 

III  ■=  .3123D-7 

69 

XL2  * -.91480-5 

73 

Xt 3 • -.70030-2 

71 

XL4  * .250102 

72 

Xl5  - - , 1 995D3 

73 

00  TO  2 

7« 

41 

XU  * .J097D-6 

75 

X 1 2 » - , J5900-J 

76 

XL3  - .35020-1 

77 

X14  • ,63310-1 

18 

X15  • 4, 134303 

79 

GO  TO  2 

8 

42 

X 1 1 = -.  85290-6 

8 1 

XL2  - .41970-3 

82 

XL 3 - 4,76610-1 

83 

X14  » . 6 3 B 6D 1 

eu 

XZ5  - *. 165403 

85 

BO  TO  2 

86 

90 

ZX  - :.COO 

87 

B 1 - 0.000 

88 

00  TO  100 

89 

2 

li  » XL  1 • H B4 

9 

Z 2 - X12*HB3 

91 

Z 3 * xt 3* HB 2 

92 

Z 4 - Xt  4*  KB 

93 

Z5  - Xts 

94 

B ' - 1 1 + Z2  + Z3  + Z4  + Z5 

95 

ZK  - 5h/(2.0D0*X( 1)*X( 1 ) *B  1 

96 

5 

CONTINUE 

97 

100 

BeTUBN 

98 

END 
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LA 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
.36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


CCONVER  CONVERT  TO  RAOAH  COOPOINaTGS 
subroutine  convES 
c input/output  hod  l 

C THIS  ROUTINE  DETERMINES  whether  ths  sensor  under  C8NSIDERATI0N  is 

c capable  op  observing  tme  vehicle  at  an*  Tine  and  or  computing  the 

C RANGS,RANGP-RAT£tRANOE.ACCELiRATlON, AZIHQTH.aZ I NUTh-RaTE. AZIMUTH 

C ACCElERATJon.CO-BuEVATIONiCO-ElEVATION  rite, CO-ELEVATION 

C ACCELERATION  or  the  VEHICLE  RELATIVE  TO  ANY  VISIBLE  sensor,  ip  the 

C SENSOR  OBSERVES  THB  VEHICLE, ALL  DATA  IS 

C PRINTED  IN  the  TOBOCSNTRIC  COORDINATE  SYSTEM,- 

DOUBLE  PRECISION  COST,coSl.SJnt»S]n1.;E4,*,Z,EXD,YDtZD.XDP,YDP,ZDR 

•,'REQ  .N2.H3.N4,  hS.XS.YS.  ZS.SRS.RS,  RSD.XNUM1,XNU12,*NUM3, 

• THOPI  .EP.-AK,  AHrEO 

• , X 1 , X 3 
•,RS1,RSD1 

00U8LE  PRECISION  XNU*, XHUM, $JK , W» , S2* , SJK , SlK2i J2K2, OPS , E, W6, N7 

DOUBLE  PRECISION  XNLM,ED,SI5,H14>n15,SIG0.RSDD.SIGDD,EDD 

double  PRECISION  Sd r Se2 , T, H, X YZ . RSLiPZ, ■ . H , P , Q 

DOUBLE  PRECISION  X»XB<XDD 

DOUBLE  PRECISION  El,ElD.ElDO*REGah,HDBETA 

double  PRECISION  TN.STN.TM 

DOUBLE  PRECISION  P 1 , 8 ALP  9 I . T IHa P I , ARS I N , GOSLT , QNUM ,GDEM , BE T Ai GAM 
DOUBLE  PRECISION  AM , XPUM . VPR I ME , SN JM? , COSB , BNUM 
double  precision  hx,vo,tme4Glam,thss;glams 
COPMON/TS/T,H,XYt,RSLi»Z 
C0MM0N/BS/X(1) ,XD(3)rXDD(3) 

COMMON/ Ax/ T M , M 

COmhON/HS/  Gam, beta, ax, VO, The, SLAM, SCI, SC2, ah. THESi glams 

• /El l m/ElI  m 

•/CONCOM/RS.RSD,RSDD,SIS,SIGD,S!GDD,EL,ELD,ELDD»REGaM,HDBETA 

•/OUTCOM/xl , X3 

•/TIMS8/TIHE8 

• /OP T I ON/ I OUT  1. I0UT2.KZ, I PLOT  1, 1 PLOT  2 ,K AT .SPHERE , OUT JNC 
•. I OUT 3 

CDMM0N/w23459/w2.W3,m4,m5,w9 

COMMON^E 

logical  rouTi. iout2,kz, i plot t, iplot2,k at. sphere 

•,  I OUT 3 

DATA  6P/57. 2957795130823208/, REQ/20925649.0D0/, 

•AK/O,  '1 745329251 99  43 2957 /,P I /3. 14 159 2653S697932J/, 

•M AlEP I /l. 57079632679489662/, 9IHAP1/4?7123889B038468986/, 

•TW OP J/6.2831B530717956648/ 

C0ST.DC0S(X(2)  ) 

COSL«DOOS(X(3)  ) 

SINT«0SIN(N<?)  ) 

S I NL«DS  I N ( X ( 3 ) ) 

EX  ■ X < 1 3 •COStoCOSL 
Y .-X(1)»C0ST*SINL 

I - X ( 1 3 »S I NT 

EXd  »Xom»cOST»cOSL»X(l  )»XO(2)*SINT»cOSL-X<1)*XoI3>*cOST«SINL 
yd  *-XD(1)»COST«SINL*X(1)»XD<2!»SINT9S1NL-XI1)»XD<3)»C0ST*C0sL 
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LA 


33 

34 
99 
34 
97 
9l 
9» 
60 
61 
62 
63 
6< 
69 
66 
67 
6» 
69 
10 
U 
12 

73 

74 

79 

76 

77 

78 

79 

80 
81 
82 

83 

84 
89 
86 
87 
89 

89 

90 

91 

92 

93 

94 
99 

96 

97 

98 

99 
130 
1 0 1 
102 
133 


104 


ID  •*DH)»R1NT«M;ImD(2>»C0ST 

«Di>i!x90(l>.l(l)t(l0|2)*X0(2)  )-X(l>*<xD(])>XD(im«COST«flO!L 
1 •<2,8Do»MD(i|*KO<2  *K(1>*XD0(J>  )#IJNT.C0«L 

i •(2.3D0*XD(ll»XDlJ)*K(l>»XDDt3> >»C0at*SlNL 

9 *2.0D0*Xa)«X0(2)*X0(3)»8!NT*|!NU 

tOP>*(xOO(i>4X(li«(XI(|)»XD(Rn>X(l>«(KD<3>*KD(|))i*COST9||Nt 

1 t(2.0D0*kD(l)*Kp<2)»4(l)«XDD<2n»8!NT*8INU 

2 - < X ( i ).XDD(3l*2,BD0»*D<lt«XDC|>  )»C8|T*C0BL 

3 *2  , 0 0 0 • ■ ( 1 ) 9X D { 3 )»X0(3}*8INT*C0lU 
|DP>tX0D(l)>X(l)tXO(2)»XO(2il»SIWT 

1 »!2.gSo*kD(l)*80i3)4A<l>*XDD(3))9Ca|t 

AH9E3  * IH  * *eQ 
*S  • XM9E5.43.W9 
Y$  • XHRS3.W3..4 
IS  • AMR03.W2 

S9S.0S59TO(3*»2*Yi»*3.j3**2) 

81K«.( (cx-xSf •W3*w*.( Y.rSj#Wl9W4«(|.lS»*R3» 
S2K»X(l5*C0S9*D*tN<X<3)pW9> 

I3KXEX-XS  )*W3.M9«(Y.Y8  )*H3*W4x(t.Z3)*Na 

S1K2*S1K»»2 

S2K2»S2K«*2 

93K2»S3K.*2 

RS1«DS3RT(S IK  2. f 2X2. 93X2) 

■ $Dl»(6XD«<EX-X|J«YD8(Y-YS!*lD»(t»!l!)/Ml 
XNUM1« ( (EX-X9).X|)/9I1 
XNUM2»( (Y-ySJ»yI}/RS| 

XNUMJ.I (I-I8T.Z8J/4RI 

xnum*<xnumi*xnum3*xnUms>''sri 

XMUM4(XNUMl*XNUM2*XNUM8)#RSi 

8PS.0S3«T(siX2.g2K2) 

C ELEVATION  aNQlE  CONSTRAINT  ON  Mil  T9*JECT0RY  SIMULATION 
E»DATAN2f09S,S3K| 

IFtE.'GT.BLIMjQO  TO  200 
47  EL  • HAL**!  - E 
R5  * RSI 
BSD  « RS01 
TIMEI  * T 
Xl  ■ X(l) 

X 3 ■ X ( 3 1 
49  R6>03IN(E) 

W7«DC0S(B) 

XNLM«xS»BxD*YS.YD*rS6ZD 

ED  > <-RS»XNLM»XMJMMS0)/(SR8»<R9*»2t*N|) 

ELD»-ED 

43  JIG«DATAN2<S2K,I1K) 

ir(S!G. 38,0. 000)  30  TO  90 
SIG»RIS*TnoP| 

90  414»DSlNfS!0j 
4l3»0COS(Sl3) 

irtOA8S(ai4)  .QE.t',00-14.  and.  W6.GT.0. 000)00  TO  109 

190  SIGDtO.ODO 
30  TO  110 
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1 0 5 

105  SlGO  ■<EX0«W3«w5  * Y0*h2*N4.Z0*M3  * ( RSD»*®»RS«ED»W7 ) «W15 ) 

106 

17(RS»M6»|14) 

107 

110  XPUM1«(X5/8P8)»(XDR/R$) 

108 

XPUM2»(TS/SR8)»(Y0R/RS) 

109 

XPuN|*(ZS/SRS).(Zob2RSJ 

110 

XpjM  ■ ( Xpi|Ml»XjUM2*Xp'jH3)/W* 

111 

RSDD»t  ( <EX-XI)»XDP»,y-YS)»YDR*(Z»ZI>#ZDI>| 

112 

1 *(exD*ExD«Y0*¥0»ZD»l0'RSD«RS0n/RS 

n3 

EDD  « -XPUM  • <XNUI4/N6I»<RSD0/RS)  - I E0pID»W7 ) /At  - 2.0D0*ED»R8D 

114 

• /PS 

115 

ElDD«-EOD 

116 

! r ( OABS ( ril4 ) .OE.liOD-16. AND. 06. QT.0. 100)00  TO  108 

117 

8 I GDD»  0 , Opo 

11® 

CO  TO  109 

11« 

108  SISOD«( X0P>M2*w5*YDR«W2*R4-Z0P«H3'2,tD0*R5D*W6»N14*SIQD 

120 

1 <2.9DO*RS*W7pWl«PEO*SI90a2.000*RS»HI»UlS*SI9D*81GD 

121 

2 *2,ODO*IISD*wr«Mt5pE0*PSOO*W<S*Wll*ftS«EDO*W7*NlS)/(R|<W«PW14> 

122 

109  CONTINUE 

123 

IF<  .NOT. 10uT2)RETUPN 

l2i 

125 

126 

C 

CALCULATION  or  UEADtNQ  ANQLE(CLOCKWIsE  o TO  2P I > 

127 

COSLT  • XD(3»«cQSY/XD(2) 

128 

RNuN  « X0(3>*C0SY 

129 

If  ( XD ( 2 ) ) 1,2,3 

130 

C 

ZERO  xD( 2) 

131 

2 IE<8NUH)  4.5,6 

132 

C 

NEQATIVE  3nUh 

133 

A BETA  « TlHAPf 

134 

30  TO  6° 

135 

C 

ZERO  BNUM 

136 

5 BETA  « 1,001«PI 

137 

00  TO  60 

138 

C 

POSITIVE  aNUM 

139 

6 BETA  * halfpi 

140 

00  TO  67 

1 4 1 

C 

NEGATIVE  XDf2  > 

142 

1 IE(BNUN)  7,8,9 

143 

C 

NEGATIVE  OP  POSITIVE  BNUM 

144 

7 BETA  s P!  ♦ DAT AW  < COSLT  > 

145 

GO  TO  60 

146 

9 BETA  = PI  ♦ OaTaN(cOSLT) 

147 

00  TO  60 

148 

c 

ZERO  9NUM 

149 

8 BETA  * PI 

150 

GO  TO  60 

151 

c 

POSITIVE  XD  62 ) 

152 

3 lf(BNUM)  10,11,12 

153 

c 

NEGATIVE  BNUM 

154 

10  8E T A x TWOPI  * DATAN(COSLT) 

155 

GO  TO  60 

156 

c 

ZERO  BNUM 

III-  49 
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157 

11 

BETA  ■ O.'OoDo 

15* 

80  TO  60 

159 

C 

POSITIVE  g«UM 

160 

12 

beta  • DaTaNICOSLTJ 

161 

162 

c 

CALCULATION  or  RE/BNTiY  ANGLE < CLOCK* I IE 
60  COSB  , GCQS ( lETA | 

i63 

8NUH  • X ( ; ) •*D ( 2 i i 1081 

164 

8dem  * xoii) 

165 

IF(QOEM)  13,14,15 

166 

c 

ZERO  GDIM 

167 

14 

IF  (|NUH»  16,17,18 

1&® 

c 

NE8*TIVE  ONUM 

169 

16 

ARSIN  » TIUARI 

170 

30  TO  62 

111 

c 

ZERO  GNU« 

172 

17 

ARSIN  f 1.0Dl»Pl 

173 

30  TO  62 

174 

c 

POSITIVE  3 NON 

175 

18 

ARSIN  • NAlFRI 

176 

00  TO  62 

177 

0 

negative  gd«m 

178 

13 

lF(QNUN)  19,20,24 

179 

c 

NEGATIVE  or  POStTtVI  BNUH 

180 

19 

ARSIN  9 THQRt  * &A TAN2 ( ONUM , ODEH ) 

181 

80  TO  62 

182 

24 

ARSIN  » 0aTaN2(GNJR,0deM) 

183 

GO  TO  62 

184 

c 

ZERO  8NUH 

185 

20 

ARSIN  • »I 

186 

00  TO  62 

187 

c 

POSITIVE  ODIN 

188 

15 

IF  tQNUN)  21,22,23 

189 

c 

negative  qnom 

190 

21 

ARSIN  « TNOPJ  * DATAN2  ( 3NUH<  ODEH ) 

191 

80  TO  62 

192 

c 

zero  onu« 

193 

22 

aRS  jN  » 0 , o 0 0 

19< 

30  TO  62 

195 

c 

POSITIVE  gnum 

196 

23 

ARSIN  * 0ATAN2  ( QNUR ■ SDEM ) 

197 

00  TO  62 

198 

62 

GAN  0 aRSJN 

199 

pEGAM  * 3AM 

200 

ROSETA  ■ 8ETA 

201 

200 

return 

232 

end 

tiMORV 

IX»ANDSO. 

USE  ILINIT9  OR  COREi  ORTION  ROR  NEXT 

1M> 
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L* 


* 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

1< 

15 

16 

17 

18 

19 

20 
21 
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28 

29 
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31 
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CEOTNx  C0MPJTP  ACCELERATION  COMPONENTS 

subroutine  eotnx 

C THIS  ROUTINE  COMPUTES  TIE  VEHICLE’S  ACCELERATION  COMPONENTS 
C REQUIRING  VARiAitE  BALLISTIC  COIF * I C I EnTS  AND  DENSITY  From 
C ROUTINES  BAlCqE  AnO  ATMISPME,  RESPECT  I ViLK 

DOUBLE  PRECISION  m,rsl,pz,t 

DOUBLE  PRECISION  Y8,Sl2.6l3.El4,SlS.EL6,*A 

double  PRECISION  0V,STI,Zk.S1iS2.S].S4,SS.VA.VDD>VDiS23.01.Q2.Q3 
DOUBLE  PRECISION  X,XBi«D0 
DOUBLE  PRECISION  A.RjH.TM.Bl 
double  PRECISION  PI 

LOGICAL  IQuU. IOUT*. |0UT3.KZ*KAT»SPHER6i IPLQT1.JPL0T2 
DIMENSION  DV I 5 ) 

COMM0N/89/xt  3> • XD ( 3) tXDD< 3) 

COMMON/TS/T,M,XYI,RSL|PZ 
commOn/,a/r,  w 

C0MM0N/GE/3K,Bl,Pl 

• 'OPTJON'lOuU, I00T2.MZ, 1PL0T1, IRL0T2,KAT.SPHERE,CJTINC,  I0UT3 
DATA  DV^2- 4216  704qiJ  , 4,0 , 0[|0/ 

•, S6/2. OqO/ 

SlrDC0S(X(2)  J 
S2*DS1N(X(2)  ) 

S3«DSIN(S6»X<2) ) 

S4  = dC0S(S6.X(2)  ) 

RSl  « R 
H3  X ( 1 ) - RSL 

I F ( . NOT , K AT ) qO  TO  31 

call  balcof 
call  ATMOSP 

31  VA  * (XDtl)*XD(l) )/(X(l)»X<lJ )*XQ(2)*XD(2)*(Sl»(XD(3)+w) J ,#2 
C VEHICLE'S  INERTIAL  SPEEB  ICOMPjTED  OjTPyT) 

XYZ«X(1)#DSQRT(VA) 

VDD*  X D ( 1 ) »XD ( 1 ) ♦ X(1)»XD(2)»X(1)»XD(2)*»X(1)*<XD(3>-W)»S1)»«2 
C VEHICLE  SPEED  HRT  the  aTHOSPHeRTc  HIND 
VD3DSgRT  f VOD ) 

S23*.PZ«ZK,VD 

C DRAG  FORCES  CONJUGATE  TO  GEO . R AD  I US , LAT ! TUD8 , LONG  I TUDE ( TT/M  I N/M [ n ) 

Oi=  S 23  *XD ( 1 J 
02=  S23*xD ( 23 
G33  S234(XDl3)-H) 

V6  3 R/X 1 1 ) 

EL23X(l)*XD(2)*XD(2)40,5Dn,(l,0D0*S4)*(W«XDt3))»(W*XD(3n«X(l) 

EL33DV<l5/XtlUv6*Dvl2)''x(l),V6»»3»l3,0D0»S4-l.0D0) 

EL4sDV(3j/x(1)*V6**5»(35iOdO*s4*s4-10,ODO*s4-13,OoO) 

C GEOCENTRIC  RAOlAL  ACCELERATION  (FT/MI N/M I N ) 

X DO { 1 ) * EL2-EL3»EL4*01 

EL53I (-S6«XDI2)»XD(in/X(l) !-0 . 5D0»S3* < WAXD < 3 > >»<W*XD(3>) 

EL6  = -Dv<<)/(X<1  )«X(lt  )»y6»»3»S3*0y(5>/<Xll>‘X<in»v6'*5»S3»(l,0D0- 
17. -D0»S4) 
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GEOCENTRIC  spherical  components 
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19 
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21 
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23 
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C1CE*8*  GEOCENTRIC  SPHBRlCAL  COMPONENTS 
subroutine  icerbm 

C INPUT/OUTPUT  MOD  2jMUlTj*LE  S j T£/TRa jEETORT  VERSION 

c this  routine  accents  boundary  conditions  Of  vehicle  and  computes 

C GEOCENTRIC  SPHERICAL  COMPONENTS  OF  POSITION  AND  VELOCITY  VECTORS, 

C IN  ADDITION.  PERTURBATION  technique  IS  INCORPORATED  to  compute 
c the  resultant  effect  or  singolar  or  multiple  perturbations  or 
C NOMINAL  components  or  velocity, 

DOUBLE  PRECISION  V0,RaT,XX.Zk,B1.P1 

double  PRECISION  RDP»RTDP.RlDP.C13iGMUiCA.GAM.BETA,OLAM,HX,ThE.RO 
DOUBLE  PRECISION  X/XI.XDD 

DOUBLE  PRECISION  SC  1 , SC 2 . T , M . X Y Z . R8L .PZ , B , H 

DOUBLE  PRECISION  XNi  XDN*XN1I20)*XDNJ(2Q) 

double  PRECISION  C0S9AM.C0SBET.SINQAM.SIBBET.V2iA.BjC 

double  PRECISION  SNA  1 V80DR . V80 

double  PRECISION  RATH 

DOUBLE  PRECISION  TN.STN.TM 

DOUBLE  PRECISION  T«ES , GL*MS  , AH 

C0MM0N''BS''X(3)  .XD<  3)1X001  3) 

COMMON/TS/T.H.XYZiRSL.PZ 

C0MM0N/a7R.W/M2TRaJ/*X{U) 

C0mm0n/AX/Tm,mT/QE/ZKiB1.P1 

COMMON/MS/  GAM.BITAiBX, VO. THE , GL A M , SCI . SC2 . AH . THE S r GL AMS 
•rABC/A(20).BI20).C(20) 

•/OPTlON/lOuTl, lOUT2,KZi l PLOT!, IPLOTeZKAT.SPHGRE.OUT JNC, IOUT3 
•/OPTl/INERTL 

DIMENSION  rDp  < 20 ) ,RT0pf2Q).RLDp<20>,XN<31.XDN<3) 

LOGICAL  lOuTl, I0UT2.KZ. IPLOTJ.IPLOTS.KAT.SPHBRE, I00T3, INERTL 
DATA  C13/0 . 0174532925199432997/.OMU/5,OA75004D19/- 
IF(MT-2)8. 10.16 
6 CONTINUE 

RO  * R ♦ HX 

XD(1)sV0»DC0S(GAM«C13) 

IF(GAM.eQ.90.0dO|XdH)»0,OdO 

XD(2)*VO/RO*DsIN(GAM»Cl3I*OCOs<aBT*»ei3) 

RAT«RO»OCOS(THE»C13) 

XD(3|aV0»DslN(GAM»C13)*QSlN(BETA»Ci3?/RAT 

I F ( |NERTL)xD<3)«XD(S|«H 

X ( 1 ) pRO 

X ( 2 ) p THg»C13 

X t 3 > » GLAM.C13 

I F ( ,NOT,XZ)GO  TO  39 

DO  IS  I « 1 . 3 

xni 1 1 ) = xt  n 

15  XDNK  I ) * *DI  I > 

3u  return 

C INITIAL  BOUNDARY  CONDITIONS  TO  SjMULATg  TIMBHISE  BACKWARD  TRAJECTORY 
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10  80  • 1 >38333730101 

X(l>  ■ XM ( 1 ) 

X ( 2 > • TM69*CiJ 
X ( 3 ) ■ Ql*MS*Ci3 
XQd)  4 XX  ( 4 J 
*D( 2T  * *X ( 5 } 

XD ( 3 I * MX ( 6 1 
XDD  < 1 ) • XX  < 7 > 
x dd  c a > • x x ( a > 

X DO ( 8 ) • XX ( 9 ) 

ZK  • XX(10) 

PZ  • XX<11> 

RETURN 

16  I R ( MT . QT , 3 ) 00  TO  3» 

DO  it  1 I 1«J 
XN(I>  4 X ( I ) 

XDN(  | ) ■ XD  < t ) 

18  CONTINUE 
RETURN 

35  !F<  ,NOT,kZ)GC  TO  26 
00  40  PI, 3 
XU)  ■ XNl(  II 
XDU  ) • X0N1U  ) 

XNUt  • XNl  ( J ) 

40  X DN  < X ) * XONl(I) 
s0  TO  4$ 

20  DO  25  j 6 1,1 
X < I ) ■ XN< I ) 

25  CONTINUE 

45  SN1  ■ DC0S(XN(2>*C13| 

V80DR  4 DSoRT ( (XDNtll/XNtl)  ) •• 2 4 XQN ( 2 ) 6XDN < 2 1 ♦< SNl*XDN (3) >»*2 > 

V0O  * X N 0 1 ) • VBOqR 

BETA  « DAT  *N2  < xDN ( 3 > !$N1  , XDN ( 2 ) ) 

COSBiT  « DCOKBET*) 

SIN8IT  ■ DS I N ( BETA } 

COSQAH  « XDN(l)  i 003 

SINQAM  « XDN/2)  / ( V b Q p M • cOSbETJ 

M = HT-3 

T2  ■ 8(HJ»8INOAM*C(M|«C08Q*H 
RDP(M)  ■ (-8{M>*00834M4C<M>«SJNGAM>*IO,OdO 
RTDR(H)  * (-»2»C0SBlT«*(M)»STNBET)*60.0DQ 
■Ldp<m)  * (-V2.StNBET*A(N)*COSBET)»60.0D0 

*D < 1 > • XDn<1)  ♦ RDP<M> 

XD ( 2 ) • XDN ( 2 ) ♦ RTDR ( M >^XN ( X > 

RATN  ■ XN ( 1 ) # DCDS (XN ( 2 } *Cl3 ) 

XD<3)  • XDn< J)  * RuD8{«)/R*TN 
RgTURN 


100  END 

OuAUITT  OR  NON-EOu*UtT  COMPARISON  M*Y  NOT  BE  MEANlNIFuL  IN  LOGICAL  IF  EXPRESSIONS 
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CINIT  INITIALIZATION  SUBROUTINE 

Subroutine  inital 

C lUPUT/OUTPUT  HOD  2 , H'JLTXPtE  SITE/TRAJECTORT  VERSION 

C this  SUBROUTINE  PERTORMS  SOME  OF  THE  INITIALIZATION 
C RrOGRAH,  ESPEClAtir  TOP  PRODUCING  OUTPUT. 


OOOOOC  1 : 
r OOOCU2 
VO 30'-".  3 

C00OCO4O 
0 0 0 0 v C 5 r 

NEEDED  FOR  TKEOOOOO J6  : 

3 0 0 o J e 7 • 
C 0 0 0 '-’US' 


eoHMON/INCUT/IMCOUT,IOUT,KOEM,NOrF2f »OFF3,XOUTA 
*fTO/TO/TS/T,H,XIZ, RSL.P* 

•fOPIION/IOUT1,lOOT2,Kl.lPtOT1,lPLOT2,KAT.SPHEi'E,OUTlNc.IOt/T3 
*¥rTd/RTd.RTd6  .RTD36.r36,F6C8;,FERU 
{ONMON/W23u59/H2,w3,H4,W5jM9 
«fNS/GAN,BETA,Hx,  VO,THg,r,iAH,SC1,SC2,  AH.THtS.GlAMS 
BOHKON/GE/ZK.bI.P VA/S.»/ST/P(3),0(3) 

*TGeCXK/5eO .xk/ax?tm,m 
•fSMSW/SWTcHl.SWIcHZ/SMIO/SWcH’O 
♦RSW3SH4/SNICH3’.  SiTCH4 
*fSW5SW6/SWTCH5.SdTCH6 
*¥SW7/SWTCH7/SW3/SWTCH8/'SW9/SWTCH9 
•fNR/NREC1,NPEC2,NREC3,NREC4,NRBC5,NREC 
*yNR6/NREC6/IT7/lt2.IT 
*¥TIHE5/TIN.E5/TiMEL/TiHEl,  TIMES 
t0HK0N/NR7/NREC7.N0rF4 
*fSlTES/NSiTE.SiAT(20),SlON5(2  ) , SaLT{ 20) 

•flSlTE/lSlTE 

Logical  iouti,iou72,kI.iPloti,ip!.ot2,kaT.sphere.iout3 
tOGIcAL  SWTcH'.SdTcH2,SWCHi: 

Logical  svtch3.s8tchu 

Logical  swtcH5.si>tcH6 

Logical  svich”, sStchs, swtch9 

fOUBLE  PRECISION  ZK , B 1 , P 1 i R , W , gE0, XK , R . 0 

ROUBLE  PRECISION  «2 , W 3 , W 4 ; WS . W9 . G AM. 3E?A, HX , Vo , THE , GL AH, SC  1 , SC2 , 

•Ih.thes,glahs, ak.« lo.io ;t;h,x rz. rsl.pz.th 
♦islat.s long, salt.timel. times 

&A*A  AK/c'.- 17“532925189432957/ 

STD  • 57,295780 
STD 6 0 = RTd/6  . 

STD36  a RTD/3E0  . 

R36=  1,0/36  .0 

R608O  * 1.0/6C80.0 
SERU  = 1 , /2  '92564  . 

T = O.OD- 
SZ  = O.OD 
Ik  = O.oo 
So  11  1=1,3 

P ( 1 5 =0 . OD 
11  0 ( I ) =0 . CD 

IF ( M . NE . 2 1 GO  To  2 
T = TIMEL 
SuCHio  = .false. 

1F(T.LT.TiMES+T0)G0  to  2 


00000090 
0000.’ 1 - 
00000  1 1 . 
60000  12 
0000013' 
0000014 
0000015' 

ococ  16: 
ocoo;i7 

0000  • 18  ' 
6000- 19' 
000002 
0000  21 
OCOO'.  22” 
0000 .23 
U 0 0 0 : 2 4 ' 
00 CO  - 25 
•9000:26 
3000.27  ' 
6 000  28  ■ 
0000- 29 
0000030 
i 000.31 
C COO  32" 
GOOD. 33 
”000.34 
0300.35 
'10  0 0 3 6 
0000 . 37 
: 300  38 
0 300 039 
j 00004. 
0000041' 

0 3 0 0 . 4 2 

1 330  43' 
0 030  44' 
>000345 

0000  46 
V ” 30  47  ■ 
000  4 n 
•'  0 00  4 q 

3 0 00  b 
300  51 
”30.52' 


in -5  5 


r 


|KCH  1 0 • .TRUE’, 

O000053. 

IT 2 - <T-TlMBS*i;  D-S»/tO 

99000549 

20  IKCOUT  » (OUTKc  ♦ 1 , QE»  -5 ) /TO 

00000559 

lout  - 0 

0000056' 

lOUTA  - 0 

o o o o : a 7 Q 

torn  • 87« 

00000580 

iF(I0UTl)N0rri*364 

00000590 

lorr:  - 824 

09000690 

IOFF3  ■ NCFF2 

00000(79 

lr(ioui2)norr2<i3B4 

00000620 

lr(iPioT2)Norr3-a64 

00000633 

loFru»  554 

00000649 

IF ( ISITE , EQ  , J ) SO  TO  IQ 

00000(5'’ 

• cl  ■ JUTllSUli 

00000667 

Bc2  ■ SLOKO(ISEU) 

0000067Q 

IH  « SaLT(ISITe) 

00000683 

*9-Sc2«AK 

C000CS9 

|10  « SC1*AK 

00000730 

>2  ■ DSIH(WIO) 

C 0000710 

13  - DCOS(WIC) 

00000720 

*4  « DSiF(w9) 

0000073 

15  « DCOS{w9f 

0000974' 

10  ?lNj5  * 0,j 

00000753 

Irec1  ■ & 

0 0 0 0 C 7 6 : 

*REC2  - 0 

000 OC77: 

*REC3  • „ 

00000783 

IREC4  * 0 

OOOOO799 

PREC5  » 0 

00000(07 

PREC6  « 0 

00000(13 

PREC7-0 

ooooc(2: 

00000(33 

PHTSICAL  CONSTANTS  OF  THl  EARTH  MODEL, EQUATORIAL  RADIUS  AND  ANGULAR 

00000843 

Speed 

0000085: 

0000086' 

* » 20925640.00 

OOOOU07O 

9»0, 4375269 '48 0-2 

3000088  ' 

»k-5.7296-01 

0000-89  ' 

00000903 

UPPfP  VALUE  or  THS  TASSET'S  GEOCENTRIC  RADIAL  DISTaNCE(FT) 

0000091  ' 

9000092  7 

0EO  = 1 ,383337|0lD8 

00000930 

Pi  * Q , 0D9 

0090094  ; 

SWTcHI  * .true'. 

00000(5 

SHTCH2  * .TRUE, 

3000096. 

SWTCH3  * .FAlSE, 

C 0000979 

SWTCH  4 = .TRUE. 

0 0 0 0 0 9 8 3 

SWTCH6  ■ .TRUE, 

0000099  - 

SHTCH7  * .TRUE'. 

000019 CO 

BWTCHB-.IrUe. 

'.'000101' 

BWTCH9  = .TRUe. 

00001020 

Return 

0 0 0 C 1 0 3 7 

|N0 

'70001 940 
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cxiput 


:kp"t  subroutine 


Subroutine  input  c 

t 

Jhxs  routine  pSrporhs  the  input  function  THRU  CARDS  PON  THE  c 

f ROSEAU . 

tOHHON/AX/TH.H/NTRAJ/ITB 

•PHS/G  API. BETA. HX,VOjTHE,GI.AM#SC1»SC2»AH.THES,  SLABS 
*fEHH/ELI«/NSWTCH/NSWTCH 

*POPTtON/ IOUT 1, TOUT  2, Kt. lPlOT1,iPl,OT2, HAT, SPHERE. OUTi»C,ioUT3 
*f OPT  1/INERTt 
*FaBC/A(2C),b(20).c(2  ) 

tOHHON/SlTES/NSITE.BLXTi20) ,SLONG«20) .SALT (20)  C 

loUBLE  PRECISION  G AH , BET A i HX, VO . THE , GL AM , SC  1 , SC 2 . AH. THES . GL AMS , TM . r 
*iHH.  A.B.c.SLAT.SLONG.SALT  t 

tOGICAl  IOUT  1,  TOUT  2,  KZ.IPIOT -MPLOT2,K  A?,  SPHERE,  I0UT3,  XEorP.lNERTL- 
Rata  dtr/  . i"w53293/ 
iAMELIST/INPUTl/*TRAJ.TRf NSVTCH 
*flNPUT2/XOUT1,iPtOT1.iPlOT2,iOUT2,KAT,KZ,SPHERE.OUTiNC,ioUT3 

*» inesti 

*riNPUT3/GAH,  BETA.HX,VO.IHE,GLAH,THES,GLaKS 
♦PiNPUTU/NStTe, slat, S long, SAeT.eLIM 
♦PINPUT5/A, B.C 

tKLL  rtGEOF  < S.TEOrP)  C 

Input  trajectory  number, time  limit, main  processing  switch 

HE AD ( 3 » IN  PUT  1 ) - 

ir (ieoep)stop 

ITH  = NTRAJ  c 

PRITE  ( 6,  1C)NTRAJ|TM*NSWJCH 

10  fORMATt  1H1//5x.”HlSSiLE  TrAjeCTORY  PROGRAM ( MUiTiPle  SiTE/IrAjeCTOR 
*t  HOo)  inputs ”//?'4x, "Program  conirolsh///iox, "numbEr  or  trajecTor 
*IeS  SlHULATED(NI*AJ>",ie/?i:x."tnXlt1UK  Time  for  a trajectory  t t PI ) ", 
*&i5.5,"  piin, "//iox. "main  processing  swiTcH(nswtchi h,i6) 

INPUT  OTHER  PROGRAM  CONTROLS  - 

*EAD(S.INPUT2)  r 

»RITE(6,6C 1IOUT1,IOUT2,OUTINC,IOUT3,KZ,IPLOT1 .IFlOT2,KAT1  sphere  r 

eo  Format ( //  x, ?5hprint-out  option  kiouti  >,l6,  iox.25HPrint»out  opti. 

•on  2 ( IOUT2 ) , l?// 1 X.51HINCPEMENI  bEtwEEn  TIKE  FOINTS  FOR  PRINT-OUT  '. 
•TOUTiNO.fi  ,3a5N  MjN./ZI  X.SUHPRJNTOUT  OPTjOV  for  fadar  parameter 
* 0IEEeRenCeS(iout3),l6.1  x. 39hnomjnal  trajEctcry  selection  switch( 

*F2).L6///VX.R5HPlOTTINg  OPTION  KiPLOTI  ),L6,  1CX.25HPLOTTlNr,  OPTiO- 
♦K  2( IPL0T2) .LP//1  X, 29HATMOSPHERIC  «^DEL  OPTION ( KaT ), L6// 1 OX . 29HSP 
•FeRicao  earth  model{sphere) ,l6) 

RRiTe(6.65)iNeRTL 

65  P0RMAT(//l..X,32HlNERTlAt  VELOcHY  OFTiON  ( INjRTL  ) , 16  ) 
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c Input  initial  state  vector  or  the  interceptor 
C Input  subsatellite  parameters 

*EAD(5.INPUT3) 


0000157 
C000158: 
G000159 
000016 Jj 
00001610 
.00001620 

ARITE (6,24)  00001630 

24  PCRKAT(//1...X(€0H****************»***»******»*‘********,*»********‘.'00016‘J' 
*»***•****.//)  C000165" 

*RITE(  6,2C ) GAM. BETA, HX,?0; THE, GLAM  00001660 

20  PCRNAT(///14X,39HINITIA1  STATE  VECTOR  OE  THE  INTERCEPTOR/// 1 0*.  36H 000 1 6 7'. 
»*E-ENTRY  angle  WRT  The  VerTIcAL(GA«),d15.5,5H  CEG,//10x*38HHeAdINOC500168^ 

• ANGLE  WRT  RELATIVE  NORTH? Beta) ,p15.5,5H  DEG,//10X. 32HHEIGHT  OF  «l0C00169' 
•feSTLE  AT  BURNOUT?HX) ,D  15. 5. «H  FT  . //  1 0X » 5 2H V e LOC iTy  OF  MISSILE  R EL A . 000  1 70 ' 
•TIVe  TO  BURNOUT  AT  EPOCH  ( VO  ) , D 1 7'.  1 0 , 9H  FT , /S  EC  . //  1 OX  . 65HGEOceNTRIc  >0O0  1 7 1 

* LATITUDE  AT  rURNOUT.  +»OrTH  ANd  -SOUTH  or  eQ'JATOR  (THE)  • q15. 5, 5H  p0000172'. 

*EG.//10X.U4HGEOCE>-’TRIC  LONGITUDE. east  OF  GREENWICH(GLAM)  .D15.5, 5H  00001730 
*feEO.)  0001740 

Vo  = V 0 * 6 0 . ' 0000175' 

>RITE(6,4  OTHES.GLABS  0000176: 

40  FORMAT!///14X,23KSUBSATeLLITe  P AR AMeTeRS/// 1 OX , 55HGeOCeNTRiC  L ATiTC 000 1 77 ' 
*»DE.  +N0RTH  AND  -south  OF  eQU aTOR ( THE S ) , D 1 5 , 5 , 5 H DEG • //  1 OX , 45HGE°c -000 1 7 8 0 
* g N T R 1 c LONGITUDE. EAST  of  GREENWicH(GLAMS) #d15.5,5H  deg,)  0000179: 

|F(NSWTCH.bQ,  ')GO  to  90  C 00018*. - 

0000181 : 

Input  radar  parameters  00001820 

0000183 . 

»EAD( 5.INFUT4)  0000  1840 

0000185  ' 

»RITE(6,24)  C000188C 

HRIT  E ( 6 . 3 ‘ ) (I.SLATd)  , SLONG ( I ) , S ALT ( I ) , 1= 1 , NSITE  ) 10001870 

30  P0RMAT(///1-X, "RADAR  P AR AMETeRS" //  1 OX , " SITE  NUMBER" , 16//  1 OX , "G£OcE  '000 1 8 8 o 
**TRIc  LATITUDE  OP  RAdAR,  INORTH  and  -south  or  eQUATOR(SLAT)".D15,50000189.- 
*1“  deg. "//I  X, "GEOCENTRIC  LONGITUDE  OF  RADAR, WEST  OF  GREENWICH { SLOuCOO 1 90C 
KG)".d15,5."  DEG."//10X;"ALTITUDE  OF  RAdAR  ABOVE  SEA  Le V Ei ( S ALT ) " , ‘ 000 1 9 1 . 


50 

9O 


’ J 1 5 , 5 , " FT.") 
HRITE (6,5  ■ 1ELIM 
PORMAK///1  X,' 


C000192 

n000l93r. 

)000019«0 


70 


POrMAT(///-ux,22HVei,OCiIy  PerTUrBATxONS///10x,95HOUT  OF  TRAjgCTORY  0 O 0 2 0 6 
’ Plane  pEf:  rPaTion.  -ejected  to  ihe  left  of  nominal  tra JEctory ( a ) 0002.7 
• JN  ri./SEc.//<5*.5Dl7.5) f 0002. ’8’ 


»ERAGE  PARAMETERS  ABe  DETEBMlNED< E-l”! "*d15.5« " DEO.") 

>000195 

tLlM  = ELIM*dtR 

000196 

tr(NTRAJ.LE.3)RETURN 

<■'0001 97 

0000198 ' 

Input  velccity  perturbations 

0000199^ 

00002c.  ) 

»EAD(5, INPUTS} 

00002C 1C 

C000202'-> 

*?ITE{6,2.) 

0 0 0 0 2 C 3 0 

NT=NTRAJ«3 

0002.4- 

*RITe(6,7  )(a(i),i»1,NT> 

0002.  So 

LLX-58 


KRlTElb.fc  ) <3<  I ) . 1 = 1, NT  ) j ' : j 0 => o 

«u  format (//i  x, burin  plane  pertorbation.  ♦ejected  backwards  prom  nomuoo  pint 

«!NAL  TRAj^’TORT  ( 3)  IN  r T . / SE  C . / / ( t>  x • 5 U1  7 .'5  ) ) 3j1.2U0 

111  R I T E ( 6 . 1 )<C(I).  I=i»t!T)  D o ? i > ') 

100  FP|RPatI//1  X.79BIN  PLANE  PERTURBATION,  ♦EJECTED  JPWaRDS  from  NOMlNO  J P l 5 j 
oil  TRAjECT-jRv(  O In  fT./SEC.//<5X,5D17.5I)  0 j 2l4j 

RETURN  O^U  2lST 

END  n'C'?i60 


CINTRAJ  INPUT  TRAJECTORY  DATA  FROM  FILE 

00000050 

C 

0000UO55 

SUBROUTINE  INTRaJ 

00000060 

c 

OOOOC065 

c 

THIS  ROUTINE  READS  THE  TRAJECTORY  DATA  PLACED 

ON  A TILE 

00000070 

c 

SO  THAT  RADAR  COVERAGE  PARAMETERS  MAY  BE  COMPUTED, 

00000080 

c 

IT  WILL  ALSO  RF AD  A>:D  STORE  RApAF  DATA  NEEDED 

FOR  CALCULATING 

00000085 

: 

RADAR  PARAMETER  DtrrEflRf'CES. 

0000UOB6 

; 

00000087 

COMMON/NRT/NRECT.NOFE^/aX/TM.NTRJ/ISITE/ISITE 

00000090 

1 

/OtITT/OUTTJ  ( 5 )/NSWTCH/NSKTCH 

0000C100 

J 

/JX/JX/TiME'/TIMe^SS/TBO) 

0000011  . 

i 

/shes/nsite, slat!  2 ) ,slong(2"  ) , salt (20) 

OOOOC  1 15 

{ 

/TSiGHT/IIN.eSK  1 , 5 ) . flEESrdO.J  Q#  ? ) , SJ5HT  ( IQ,  i 0 ) 

0000  - 1 16 

s 

/KTRAJ/NTRAj/lJJ/lNOfl.I. JSjTe, JSiGHT,TSTaST,TeNd 

OOOOC  117 

« 

/OPTIO'C/IO'JT  ■ , IQUT  2 , KZ • IP  LOT  1 , IPLQI2 , KAT , SPHERE, OUT tNC» 

OOOOC  118 

i 

ICUT3 

OOOOC  1 19 

DOUBLE  PRECISION  TR,TM.SLaT.5LORG.SaLT 

00000120 

LOGICAL  IPL0T2.E0F.SWTcH2',E0F1  , 

00000125 

t 

XO,'T1»i0UX2..KZ«iPLOTT.iPv5I2,kAT1SPHeRE«IOUT3 

OOOOC 126 

IF(NTRJ,GT.2)G0  TO  20 

0000013 

REMIND  S 

OOOOj  1 U . 

5 C RFAd(9)IREc.TIKe1 

0C0CC15'. 

return 

0 0 0 0 v 1 6 P 

2"  IF(NSWTCH.E0.2)GO  TO  25 

00000165 

If  (ISIXEjN.E.  llfiQ  TC  3 

00000170 

35  BACKSPACE  5 

00000171 

HEAD(9)IREC.NREC~ 

OOOOC 1 72 

iback=irec 

00000173 

IFiNREC7.E(,.C.AND.IREC.E0.2)KETURN 

0000017U 

3C  DC  40  TB=1,IBA0K 

OOOOC  18f 

<*C  backspace  5 

00000190 

GO  TO  50 

C000C2uU 

25  irdsm.EQ.  1)50  TO  50 

00000205 

IF(ISITE.EQ.2)G0  TO  35 

00000210 

GO  TO  30 

00000215 

C 0 0 0 0 2 3 u 

ZV TPT  TRACI;. 

000002RC 

READ  ' 9 ) IF  EC,NB"C~ 

0000025  . 

IF  ( !:SFC7  . SC , 1RETURN 

0000027" 

N D A T A = NF£c7*3 

,'000v.  28 

REA D ( 9 : IREC, ( OUTTJ' I) .I=1.NDAtA) 

0000021 

return 

0 0 0 0 3 1 . 

c 

O000C322 

ENTRY  TRAJX 

0000033C 

c 

C 0 0 0 - 3U 

c 

STrpv  TRAJECTORY  PATa  F°OM  INPUT  BUFFER  IN  TRAJECTORY 

0 0 0 0 C 3 5 0 

c 

ARRAYS 

COCO .36 

c 

o?oc:37 

1 1 = i 

000003P  0 

DO  '0  JJ=JX,JY+S 

CO 00 039  ■ 

TR!II)=OUTTJ(JJ) 

CC00v4  1 

III-60 


o o o on 


ii=n+i 

1 CONTINUE 
J X 1 J X + 9 
RETURN 

C 

ENThI  TIKE3T 

READ  IK  A!»t  STORE  TIMES  OF  SIGHTING 
RADAR  r-ARAMEXE?.  DIE FOR E»: CE F. . 


READ  IN  A N I STORE  TIMES  OF  SIGHTING 
C pi  AU,  RaDaR  SITES. 

C 

REWIND  11 
ISOM®  ■ 

I F t . NOT.KZ)IKOM  = 3 
JJ  = 1 
11  = 0 

13C  READ  ( 1 I 1T+NE?,I?LQ72,  ICO. EOF 
IF (EOF) GO  TO  1 0 
11=11+1 

TINES  I (ISON,  JJ,II)=TI'1E3 
120  READ! 1 1 )NRFC3,TTR, IS, SOF1  , SWTCH2 
IF(EOF10)GC  TO  11 
REad(  1 '1ESJKM* 

GC  TC  1 20 
110  READ ( 1 ' )TINE~ 

T I K E S F (ISON , J J * 1 1 ) = T I M F 7 
GO  T"  1JC 

100  KSIGHT(INON,JJ)=II 

if!  JJ,EQ,N’SITE)GO  to  140 
J J=J J+ 1 
11=0 

GO  TO  ■ 3C 

c 

C READ  IN  AND  STORE  TINES  07  SIGHTING 
C P Y ALL  SITES, 


140 

PE'/I'JD 
PrWINI  1 

Iff . NOT , KZ ) GO 

70  1" 

19  5 

JJ=  1 

19" 

REAP!  1 * ) D U N , E ’ 1 

V, PC", EOF 

IflEFlGO  TO  1 

60 

18" 

read;  1'  )Dl,v.D" 

•.DUN, EOF  1? 

IF(e.F10)5(  to  1?. 

READ ( 1 ' U'UV 
50  TO  ' S C 

17-  kfad(1")du: 
go  TO  "90 

160  IF  ( J.J  .EU.SSITE)G0  TO  201 


0000  ■ 4 1 
0 0 0 0 0 4 2 r 
0000.43 

oooo'.  44 ; 

0000  - 45 
0 0 0 0 C 4 6 

0000.47 

FOR  CONFUTATION  OF  OOOOvue 

0000 . 49 ; 
0000.5"  . 
00000510 

OF  NOMINAL  TRAJeCTORX  00000  52 

0000.5 3 
00000540 

0000055  : 

CQ0OC56 
07000570 
00000580 
0000059? 
0 00  00  6'-' 
0000061 : 
0000062: 
C000063 : 
00000649 
0000C65 
000006  6 - 
C000C67" 
0000068" 
C000069 : 

00000700 

0000071? 

0000072" 

0000.73 

0000074" 

0000:75 

0000076 

F ALL  OTHER  TRAJECTORIES  0000077" 

0 OOOO  775 
COOOC  78  ) 
0000079? 
U 00  0!  (95 
.000'.  e 7. 
C 0 0 0 8 5 
0000081" 
COCO'.  82 
. "00.83 

ocoe  84 

:0C  8 5 
0000.86 
0000 . 8? 
00001.88 
.000.89 
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i 


j 

I 


JJ=JJ+  1 
5?  TO  *_9  0 

15C  IT  P A J = " 

50  TC  270 

200 

270  J3=  1 
II  = C 

22C._ltEA.fl  0 101  TILE J^SU&aMUH^EQZ _ 

lF(EOr)GO  TO  230 
11*11*1 

TlKESI(ITBAJ,JJ,It)*TlHE3 
240  RE  AD  ( 10!NHEC3,TTF.XS#ECIF1  . SWTCH2 
IFTeOF10)GO  to  05 

atAOi  102D11RK3C—  _ 

GO  TO  240 
250  REaD(10)TIHe7 

TIMESr (ITB AJ.JJ.lt >-TlHE7 
GO  TC  220 
230  NEIGHT(ITBaj, 

XZLU  . E.0  .KSxlE  lfiO  IS .26£  . 

JJ=JJ*i 

11=0 

GO  TO  220 

2*0  iriITBAJ.EC. ' )GQ  TO  i95 

IF(ITF.AJ.FS.HTRAJ)30  TO  2 S 0 

IT£aJ-ITBAJ»  * _ . 

GO  TO  270 

280  PEwma  1 

HETt'BN 

c 

entry  inteh 

s 

C DFTEBMINE  the  intersections  of  the  time  sets 

c 

JSIGHT* 1 

I?  (TIMESIdNO::,  JS1TE,  JSIGHT)  .GE.IIMFSI(I,  JSITE^SIGHT)  ) 
5 GO  To  29C 

ITlTTvssr (INOK, JSITE, J3IGHT) , LE.TIMESF (Ja JSITe, JSIGHT) ) 

4 GO  TO  300 

TSTaBT=TIKESI(I. JSITe, JSIGHT) 

TEND  = TIMESF(I,  .’SITE#  JSIGHT  ) 

310  RETURN 

300  TSTAPT=TIMvsl(I. JSITE. OSIGH” ) 

TEND  =TIKESF(INOM» JSITE. JSIGHT) 

GO  TO  310  , 

290  IF  (TIMESFdNOM.  JSITE,  JSIGHT  ) ,GE.IIMESr(  I»  JSITE,  JSIGHT ) ) 
4 GO  TO  32 

TSTaBTxTIMESI(I»OM, JSITE,  JSIGHT) 

TEN3=TIMES" ( INCH, JS I" E, JSIGHT ) 

_GC  TO  310 

320  TSTABT=TlMESI (TNOM, JSiTS, JSIGHT) 

TEXT  =TIM5SF( I, JSITE, JSIGHT) 


000009 1 5 
0000Cj17 
0000092Q 
00000g30 
00000950 
00000960 
00000970 
00000980 
00000990 
00001000 
00001010 
0000102c 

00001030 

00001040 

00001050 
00001060 
00001070 
00001080 
OOOOIO96 
00001  ICO 
00001110 
00001115 
00001  1 2 Q 
00001130 
00001  140 
00001 15C 
00001 160 
00001 17C 
00001 180 
OOOOH  90 
00001200 
0000121° 
00001220 
0000123' 
00001240 
0000 1 250 
00001260 
0000127' 
00001280 
0000129" 
00001300 
00001310 
00001320 
00001330 
0000134 
0000135. 
C 0 0 0 1 3 6 C 
0000137C 
0 0 0 0 1 3 8 0 
0000139  1 
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COUTPUT  OUTPUT  SUBROUTINE 

SUBR.QUIIM  OUTPUT 


00000010 
00000O20 
C0000030 

00000040 

00000045 

THIS  SUBROUTINE  PRODUCES  THE  PRINT-OUT  OF  THE  RESULTS  OT  A PROGRA«00000050 
RUN.  missile/satellite  trajectory  parameters (POSITION, velocity. etcc 0000060 


INPUT/OUTPUT  MOB  2. MULTIPLE  SITE/TRAJECTORY  VERSION 


.)  ARE  PRINIEE-sQUTj  AS  AlE  XHE. IRAJECI°*IES  AS  SgES  B * VARIOUS 

RAqAR  sites. 

THIS  ROUTINE  AlSO  JS  USED  FOR  TEMPORARY  STO»aGE  OF 
TRAJECTORY  AND  RaDaR  DATA  aND  CA«  WRITE  A HlE 
FOR  LATER  USE  IS  PLOTTING . 

COMKON/TS/T.H.XYZ.RSl.PZ 

‘/cOA'CQK/RS^fiSO.BSDD.SIO. SIGD.SIGDD.ELi ELDi EtDEi RCGaM,  HcbeTa 
*yoUTcOM/X  * . X3/TIMR2/Tl‘lff2 
*fTIME8/TIKE8/ISITE/ISlTB 
*/bS/X(3),Xd(3),XDD(3) 

‘/KS/Ga«»BETa»HX.V0,THE.GLaM,Sc1.Sc2, aH.thes, GLa«S 
*?ge/zk.bi,p ' 

*/-££TIQ»/IQUI  •,IOUT2.KZ,IPLOI_MPLOT2.KATiSPHERE,OUTINC»IOUT3 
‘^RTD/STD, STD®  .RTd36,F35,f608‘,EeHU 
•TSWSW/SWICH 1.SWTCH2 
»?SW3SW4/SVTcH?,S&TcH4 
*5'SWSSW6/SVTrH5,s8TcH6 
*TTiMe3/TIMe5/TiHeL/TiMeL. times 
*?jlX/TKa»trjZ1L2IR*J/XXL11]  . . _ 

CCMM0N/NR/NREC1,8HEc2.Nhf.c3,NREcU*NREc5,NREC 
*fNR6/NREC6/SK ’O/SWCH 10 
*TlO/IO. 10 ' . 102 

VINOUT/INCOUT,  IOUT,  {(OF?  1,  N0FF2,  N0FF3,  JOUTA 
C0MK0N/NR7/NRECT.N0FF4 

•lc UTT/OUTTjJ 5 0 }/OUTBJ/0UTTRj( 5000 J ,OUTR AD (5000 ) . OUTPLT ( 50 7 0 ) 
*7SITES/NSITE,SLaT( 20) ,SLONG( 2 ),SaLT(20) 

DOUcLE  PRECISION  T . H . X YZ , RSL . PZ . X . XD# XDD. ZK . B 1 . P 1 . G AM . BET A» HX * VO , 0000029  V' 
*TKE»GLAK,SC1 ,sc2, AH.thes, GLAMS »RS,RSd,RSdD»SIG,SIGo,SiGdd* el.  ELd*  OOOOC3CO 


00000070 
00000080 
00000085 
00000086 
00000087 
00000090 
OOOOC  100 
U00001 IV 
00000120 
00000130 
0000014P 
0000015’ 
0 C 0 0 u 1 5 0 
C0000170 
0000018 
0000019' 
000002 
0000021 
0000022  ’ 
0000023 
0000.24 
00000250 
0000026 
00000277 
0000.287 
00000285 


•ELDD.REGaK.HdbETa.TM.XI.XY.TIKEL. times 
*.  xx, slat. slong, salt 


LOGICAL  IC UT  1. 10UT2, KZ, IP  LOT 1.IPL0T2.XAT. SPHERE 
* . I0UT3 

1 0 G T c A L SWITCH . SWTCHR. SVTcH  1 . SWICH2 . SWTCH3 . SWTCH 4 . 3 WTCH5 , SKIcH6 
•0F8.E0F'  .EOF.SWCH  10 


Time  i 

I S T 0 R 1 = ' 

ic  ’•=  7 

T F ( IOUT  1 ) To*  1 7 
NPEC1  = 

I STC  R u c ' 

lF("TRJ.NE.2)r.o  TO  12: 

OUTXMC=-OUTlNC 

switch®. False. 

SWTCHR* .FALSE , 


00000310 
0000. 32" 
0000033? 
00000340 
0000035C 
0700036 

0000037 : 

OOOOC  46  '' 

0 0 0 0 0 4 7 

0000048 

0000049' 

0000050. 

000005  .'5 

0000051' 

00000512 

C 000 . 5 1 5 

00000517 
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120  IF(NTRJ.EQ.3)0UTINC*-0UTINC 


ENTRY  STORTJ 

C STORE  DATA  FROB  MISS ILE/SaTEUITE  TRAJECTORY  FOR  PRZHT.OUI 

IOUT  = 0 

times  » i 

OUTTRJt ISTOR  1 ) = X ( 1 ) 

OUTTaj(lSTOR1*1)  = X ( 2 ) *RTp 
OUTTRJ (ISTOR  1*2  ) = X ( 3 ) *RTD 
OUTTRJ ( ISToR  1*3)  - M 
0UTTFJII3T0R1+4)  * XY?*0.  16666667 

OUTTRJt ISTOR 1+5 I » ZK 

OUTTRJ(ISToR1+6)  = FZ 

ISTOR  1 * ISTOR  1 + 7 

NREC 1 = HRecI  ♦ 1 

IF ( .MOT.IOUTIJRETURN 

OUTTRJ ( ISTOR  1 ) * X D ( 1 ) * 0 . 16666667 

OUTTRJ  (ISTOR  1 + 1 ) = X2(2)*RTp6' 

OUTTRJ(lSToR1+2)  a Xo(3)*RTD6' 

OUTTSJ(ISToR1*3)  = XDD ( 1 ) *F36 
OUTTRJ(ISToK1+4)  = Xdd(2)*RT036 
OUTTRJ (ISToR  1 + 3)  = XDO( 1) »RTd36 
ISTOR1  = ISTOR  1 + 6 

imia 

ENTRY  STORTR 

C STORE  TRAJECTORY  DATA  FOR  RADAR  COMPUTATIONS 

NE!?7_.b  NREC7+1  

0UTTJ(IST0R4)=x(  1 ) 

OUTTJ ( ISTCRU+ * )=X(2) 

OUTTJ(ISTORU+2»«X( 3) 

0UTTJ(IST0R4  + 3»=Xr>(  1 ) 

OUTTJ(ISTCP4+4(=XD(2) 

_ OUTTJ {ISTOR 4+5  * = *D (3) 

0UTTJ(IST0R4+')=XdD(  1) 

OUTTJ (ISTOR 4+7i=XDD( 2) 
bUTTJ(ISTORl*  + R)=XDD(3) 

IST7R4*  ISTOR  4 + 9 

Return 

ENTRY  OUTTRI 
IREC=  1 

WRITE(9)IREC,TIME  1 

Return 

ENTRY  OUTTR 


000005 1 8 
00000520 
00000530 
00000540 
00000550 
00000550 
00000570 
00000577 
O0OOC5BC 
00000590 
00000600 
00000610 
00000620 
00000630 
0000064 
00000650 
00000660 
00000670 
00000660 
0000069 
00000700 
000007  1 r 
00000720 
00000730 
00000740 
OG00075 
00000760 
00000770 
0000078'' 
00000790 
00000800 
000008  1 0 
00000820 
0000083 
00000840 
O000C85" 
0000086' 
0000087 
00000887 
0000 0890 

oooojso : 

000009  1 ■> 

00000 g2? 

0000093  i 

0000094C 

0000095 

00000955 

0000-96' 

0000' 97 

4000-98 

00000940 

000 CIO  0 
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C OUTPUT  TRA JICTORX  Data  0»  A fit! 


IREC»IREC*1 

WRITS  ( 9 ) IREC.NREC7 
IF (NBJC7.EO. • iREtURN 
SDATA  * NREC7*9 
IREC-IREC+1 

MBIT!  ( DTF.ZC^XaUTlJlIJ-^X?  

RREC7  * 0 
IST0B4-  1 

Return 

entry  strad2 

C COMPUTE  SECOND  MoTr” TIME  POINT  TO  BE  PRINTED  OUT 

TIME 4 * T/OUTIMC 
ITIHE  = TIME 4 

lF(TIME4-rLOAT(lTI«E)  .LT.  1 .08-5)90  TO  80 

fiUlLRJt __ 

so  swtchu  * .false. 

tOUTA  « JNcOUT 
Time!*  » T 

nrec«  * 2 
return 

ENTRY  SIORftP 

TIME2  » T 
X5TCB2  *=  1. 

101  = 8 

IF ( IQUT2 ) IQ  1*  'J 
NREC2  * 0 

SRECfi  ° 1 

Entry  stord" 

C STORE  RADAR  DATA  FROM  MISsILE/SATEllITE 

90  lOUTA  = 0 
times  =•  t 

OatRABtXBToR2t  ■ I3»?608o ... 

O'JTRad(IST0R2*1)  = RSD*3.  16666667 
OUTRaD ( ISTOR2  + 2 ) = jl*rtd 
OUTRaO ( I370R2  + 3 ) = EIO*R?D«~ 

OUTRaD!ISTOR2+4)  = Sj3*RTc 
OUTRAD ( ISTOR2  + 5 ) = SIGD*RTD60 

OUTRaD tISToR2*6)  = XrfFgHU.  __  

OUTRaD(ISTO»2*7)  = X3*5TD  - OLaMS 

TSTOR 2 = IsTOR2  ♦ 8 
NREC2  = NREC2  + 1 
lF( .N0T.l0uT2)aETURN 
OUTRA0(ISToR2)  = RScd*F36 

OUTRa5(iSToR2*1)  * £LnP*RTp36 

OUTRAD  ( lSTOR.2  + 2 ) - Sl3D0*RTD36 
OUTRAD  ( ISTQR2  + 3 ) = R33A.1*RTD 


00001010 

00001U2C 

00001025 
00001030 
00001040 
00001050 
00001055 
00001060 
00001070 
00001080 
OOOOlUgO 
00001100 
00001110 
00001 126 
00001  13c 

00001140 
00001150 
00001160 
00001170 
C0001  180 
00001  190 
000012  )0 
00001210 
0000122 
00001230 
0 000  1 240 
00001250 
00001260 
00001270 
0000128 C 
0000129 C 
00001300 
QOOOI3IO 
0 0 0 0 1 3 2 Q 
00001330 
00001340 
00001350 
00001360 
0 0 0 0 1 3 7 1 
00001380 
00001390 
0 0 0 0 1 4 0 0 

0000141 : 

00001420 

0000143: 

0 0 0 014  4') 
OC00145 

0000145: 

00001470 

00001480 

0000149: 

0000150: 
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OUTFAD(ISToR2+4)  * HD3ETA*RTD 

ISTOR2  = I STOP  2 ♦ 5_  

~ Letups 

ENTRY  STRadJ. 

c determine  LAST  RADAR  Tins  POINT  FOR 

IFlTIME8JI.T.TIME5*0i011KSTUR» 

times  « times 
hrec*  = 3 
GO  TO  90 

Entry  frintt 


C OUTPUT  TRAJECTORY  DATA 

IF(NREC1.EQ.0)OO  TO  5 
Toil  =10-1 


0000 1 5 1 . 

.,000152 

0000153 

0000154" 

00001550 

storage  and  print-out  ooooisso 

00001570 
00001580 
00001590 
0000160" 
00001  6 10 
00001620 
00001630 

0000  1640 

00001650 

0000166" 

00001670 

0000168: 


Mo D 5 2 = MOD ( NRSC  1 , 52  ) *10  0000l69r 

WAGS  ? _ NREC  1/52  + 1 . ..  C00017JJ 

IF ( MOD52  . EQ  , - )NPAGE=NPASE-1  00001710 

K 5 2 = 52*10  00001720 

IT ( NTRJ , NE , 2 ) GO  TO  85  00001721 

IF(SWITCH)GO  TO  8 3 00001722 

SWITcH*, TRUE.  00001723 

If  1 TJMe_2”TIEE  1 .Efi  •OUTX'icJ  GO  TO  03 . . 00001724 

SWTCHR=.TRUE.  00001725 

P5  DO  40  NP=1,NPAGE  0C001731 

lEND  = NP*K52  0C00l7#0 

ISTART  = ( NP«  1 t*K52  + 1 0000175: 

IF(SMTCHR)G0  to  18  0C001755 

iriiPAl»B.iVPA5i>S0  ?0_JO  ..  _ . 0 00  017  6 1 

IF  ( M0D52  . EQ  , ) GO  TO  30  000017"’ 

IF ( NPAGE  .EQ , 1 ) GO  TO  50  00001780 

I END  = ISTaRT  -1  + M 0 0 5 2 0000179" 

30  IF(I0UT1 ) G 0 TO  35  000018J: 

WRITE ( 6,  1 ' )NTRJ, fTIMsI  + il/lO) ‘OUTINC. ( OUTTRJ ( J ) , J*i, I*IO 1 1 ) , I = ISTA0000  1 8 1 
♦PT.IENp.IO)  0000182' 

”io~  formatTihi,7  x.4ihTraject6ry  parameters  , traJEcTorY  nuMbe»»i«//5X0000183c 
*,  9HTl!lE(MlN) ,2X.  1 H 9 ADIU 8 ( FT ) , 2X , 1 3HL ATlTUDE ( DEG ) . 2X , 1 4H10NGITUDE 3 000  1 8 4 . 
*rpEG),2X.  ■ .HHriGHT(FT) . 2X.  1 4 H VeLOc IT Y ( FT/S ) , 2 X , 2 1 H 3 A L . C°E EE . (FT* *20000185" 
*/SLr>),2X.22HATMOS.DENS.(SLG/FT**3)/(6x.r7,2,1X.E12.513x,F7,2,8x,F8j000186 
*.2#5X#El2,5#3x*El3,6,4XiE'2,5f12X#El2,5))  0000187 

GC  TO  40  0000188  ' 

SO  SEND  ■ ROD52  C0001B9" 

GO  TO  30  000019 

3 5 VajTE  t 6,  15) NTRJ, ?TIMe1  + ( I/XQ ) *OUTI'JC. (OUTTRJ ( J) , J = x,I  + I01 1) ,I  = ISTa  "OOI9I 


*RT, TEND, 10)  0000192 
’5  format! ih 1 , 1 x,41htrajectory  parameters  , trajectory  number, i4//3X"oooig3  ’ 

*,4HTIME, 4X,6HRaDI’JS,  IX. 3HtATlTUpE, IX, 9HLOSGITUDE. *X, 6HHEIGHT, 3X, 8H - 0 00  194 
♦Velocity, 2 x, 6 KBALcOF,2x,5HATDEt»,5x.5HR-DoT, 1x,7hlat-dot, ix, Shlong- ^000195 
*DOT,2X,8HR-dCTdOT, 1 X , 1 OiJL AT-0OTDOl , IX, 1 1 HLONG-pOTDOT/2X , 5H ( M x» ) , 5X 0 000 1 96 


I 
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on  n 


i 

i 


• . «*H  ( FT  ) ,‘*X.5HfD;3).liXt5l|(DE8),,>x.WH(r!J 

' X, 7H  I DEfl/S  1 1 ) 


»X, 10H(DE0/S**2*,2x.  1 H (DEG/S + »2)/( 1X,r8,2#1X,E9.3#2X,F7,J,3Xi 18.2,0000199'’ 
•1X.E9.  J.  ’X.E1  *3.  •X.r5.2.E9.2.Bl9.3.1X.X7|‘*.lX,re.5,2X,re.U,1X,  00002000 


•«10,3,2X,E1  .31) 

SO  70  UC 

mi il  4111  lilillU  rfllLOWias  II3X  gOIEM.  f0?  2MB  HUlCtOll 

180  5WTCHB<>.fXl.SE> 

IT (NPAGI.NE.  1 ) GO  TO  240 
Ir (POD52.E0.<!SQ  xo  240 
tESD“MOD52 

2AQ-  lEXXO U UU  GO  . XX.  2 its 

t Site  (6,  IHTRJ.II.HJI,  (OOTT8j(i).J-1,lO) 

ISTRT-XSTARX+IO 

WRITE  ( 6,6')  (TINe2+(  (I-IO)  /TO)  *OUTIt»C.  ( OUTTR  J ( J ) , J«I , 

*1+1011), I*lSTRT.tE!|o*l01 
255  lXHE1oTXNE2-0L’TlEc 

2u5  Write  ( 6 r_1_5  i"rT  Rj.tTi  E 1T~  (OUTTRJ(J)  , J ■ 1 , 1 oT 
ISTRT*iSTABl+IO 

writs! 6, ’5) (tihe2+( (i-io)/io)*outx»c» ( outtr j( 

*1+1011), I-ISIRT,1EHd. 10) 

Go  TO  255 

42  COii TXRiLE 

Time i * tiiei  + iieno/io ) *outi(ic 


00002010 
00002020 
0000203Q 
00002CU0 
00002050 
00002090 
00002070 
00002080 
00002090 
00002100 
00002110 
00002  1 20 
00002133 
0000214Q 
00002150 
00002180 
00002155 

0000218  (j 
00002190 
00002202 
000022 1 Q 
00003000 
00"  3010 


5 lf(SWICH3)S0  TO  2 00003020 

ISTOB1  * 1 00003030 

NR2C1  ■ 0 _ 00003040 

65  TIMEL»T  00003050 

Return _ 00003080 

00003070 

C tRINX  QUX  ERST  Tins  POINT  _ 00003080 

00003090 


20  XT ( NT8J . RE .21 50  TO  21 

XF(T.3T.IIflES-0,'j,DO)GO  TO  65 

Go  10  22  

21  Xr(T,iT,TlH*S*0,ClD0)6O  To  65 

22  outtr j ! i ) * x(  i) 

0UTTRJ(2)  = X(2)»RTd 
QUTTRJ ( 3 ) * X ( 3 1 * R X D 

outtr j ( 4 ) = h 


cooo3  no 
oooo3 1 1 : 

00003120 

00003130 

0000314? 

00003153 

0000316? 

0000317. 


OCTTBJf  S)  = XVI*  J.  * 5 § 6 f 6 $_7  _ 
OUTTR J t 6 ) = ZK 
O’JTTR  J ( 7 ) = ?Z 
1? ( . NOT. lour  1 )GO  TO  25 
OUTTR J ( 8 ! * XD(i)*-.  16666661 

OL’TT  R J ( 9 ) » Xd(2S*RId50 
OUTTR J ( 1 0 » Xq(3)*RT260_ 
c./ttrj  ; 11)  ■ X a D f 1 ) * 7 3 6 
OUTTR J ( '2)  « XDDf 2)*PX036 


00003180 
00003193 
00003200 
0000321 ? 
0 C 0 0 3 2 2 U 
00003230 
0000324^ 
00003253 
0000326 
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0UTTRJ113)  = xdd!  3)  *HTC  36 

0000327 

GO  TO  45 

0000328' 

15 

ir (MOD52.EQ.  ( GO  TO  55 

i..;0032?  i 

WRITE (6, 6 )T.(OUTTRj(J),Ja1,I0) 

000033 

60 

rOR."1*T<6x.r7.2.lK,El2.5,3x,r7.2,8x,F8t2,5x,El2#5,3x,e13,6,4x1t12# 

50000331 

*»  12X.B12.5J 

0000332 

GO  TO  65 

0000333° 

55 

wrjti!  i6,i' 

00003340 

GO  TO  65 

0000335i 

4 5 

IF(MOp52,EQ,  (GO  TO  70 

0000336 

WRITE (6, 75)1. (OUTTRjf J) . J=1,IO) 

0000337 

7S 

FORMAT!  1X.F6.2,  iX,E9.3,2X,F7.2,2x.F8.2, IX.S*.3#  U.E1**.3* 1X.F3.2, 

0000338 

*»E3.2.EV.3,1X.r7.4,lx,F8.5,2x.r3.4,1X.El0.3,?X,El0.3) 

0000339 

GC  IQ  65 

O00034 

70 

WRITE  (6,  1 5 ) NTRJ, T. ( OUTTrf J { J ) . J= 1 . 10 ) 

0000341'. 

GO  TO  65 

0000342 . 
0000343  ' 

ENTRY  OUTRDR 

00003440 

C 

OUTPUT  RADAR  DATA  ON  PILE 

0000345 J 

eof?  = .false, 

0000346  ) 

WRIIElO0jNREC2.NftEC6.EOE3 

0000347; 

If (NREC2.EQ.  (RETURN 

(J00034S 

TF(NREc6.EQ.  1.0R.NRec6.E0.2)WRITE(08)TI«E2,TI«EU 

0000349 

IF(NRec6»EQ.  (GO  TO  95 

0000350° 

IF(NREC6.FQ.  3)  WRITE  ( 8)TIME2,UKE4,TIME6 

u 0 0 0 3 5 1 • 

95 

NR ZQ  = NR£c2*I01 

0000352 . 

WRITE ( 08) (OUTRADfl) ,I=1.NREC) 

0000353? 

I3TOR2  * 1 

0000354? 

RFE02  » 

0000355 

NREC«  = : 

0000355 

RETURN 

0000357  . 

ENT? Y OUTEOF 

0000358 

EC  F 8 * .TRUE. 

0000359  . 

WRITE ( 08) NREC2.NftEC6.EO? 8 

0000360? 

Return 

0000361 

ENTRY  PRINTR 

0000362  ' 

C 

output  Rada?  data  on  printer 

C 000363  1 

REWINf  8 

9900364“ 

1011  = 101  - • 

0000365  ' 

no 

SWITCH  = .TRUE. 

0000366 

SWTcHR  = .FALSE. 

0000367 

r 

REAd(O8)NREC2,NReC6.S0f* 

?0003bB . 

If(E0F8)S0  TO  14 

0000369 

IF(NREC2.FQ,  )G0  TO  300 

000037V.  i 

NKEC  = NREc2*T0 1 

0300371 

IF  ( V R E C 6 • E 0 « 1 .0H.N?EC6.E?.  2)  READ)  08  (TIHE2.TIME4 

0000372 

I F ( N R E C 6 • v Q . (GO  TO  133 

0900373 

IF  t NREC6.F0. 3.  AW'D.  SWITCH  )READ(  OB  )TlKF2,Tir.E4,TI«E6 

J 0 0 0 3 7 4 

IF(NREC6.EQ. 3.ANd. ( .UO’.SWITcK) )READ(08)d'JM.DUK,TIME6 

0090375 

130 

REAj(08) (CUTRAo(I).I-I.NRe^) 

0000376 

M0052  = M0D(NREC2. 521*101 

r 0003  77 

NP AGS  = N?EC2/b2  + 1 

■.•0  00378 

111-69 


IF(MOC52,EQ,  ) WPaGE^NPAGE- 1 0090379 

K52  » ?2«T01  ..  30003a  > ; 

DO  ’ic  NP-1.NPAGE  0000381, 

IEND  » KP*K52  00003823 

ISTAPT  « (NT-'W52  ♦ 1 0000383'' 

IT  (h’P.EQ,  ' )GQ  TO  50  0000384, 

160  T (SP.E0.NPXGE15O  TO  1 53  0000385: 

IF  (KE.iil.iiPAiEiifl  IQ  123  . 00003853 

200  XF(KOB52,EQ,  ' s 0 TO  ’15  0000383. 

IF(»PA5E.IQ. 1 ) SO  TO  115  00003890 

tend  * istaRt  - • * ndoS2  00003993 

i?5  ir(iovT2)5o  ro  10  00003900 

W K I T E ( 6 , 125)NTSJjI5I?i;,Sc  .Sc2.  ( TIME2* ( I/ZO 1 ) *OUTINc»  00003910 

«lQlUBAalJn^J»l4l*XQJ  1 1 . I = t5IA»T.  TEND.  10 1 ) 0000392, 

125  F 0 R H A I [ ’ H ’ , ' . X , 3 6 H H ^ o a 3 PaRa"EtERS  , TRAJECTORY  NUMBER , 14 , 3X , 1 OHR AC 00039 3 ’ 
•DaR  SITE. 14. r 2.3."  DES.lAT.",F12.3,"  DEG.LONG,"  //5X , "TIME" . 7X , SHuOOO 394 
*SL  RANGE. -X,  ' 'HSL  R A NO E-R aTE . 3X  , gHELE V ATlON , 7x , 7HEL  R AT£ . 4X , 7H aZJM0 0003 q 5 J 
*»Th.6X,'KAZ  RATE, -X, 6HRAeitU5,3x, i2HiReRTiAI  PHI/4X,5H(MIN),10X.4H(00003960 
* RM ), 8x. 6H ( ft /S 1, 9x. 5H ( deg s, 9x.7H( DEG/S ),5X,5H(DES).7X,7H( deg/s ),4x- 000397 0 
512.1  2.X.  r7.2.2X.K  13 ,6a  4X.2  13,6, 5X,F7,2l3XiEl1 ,4,4X3  000398 
*,F7,2.2X.E  .-.3X.F7.3.9X.F7.2))  0000399* 

CO  TO  113  0000u000 

1*5  I END  = MOD52  90004010 

50  TO  1:5  00004020 

1 T C WRITE ( 6,  135) NTRJ.ISITE.SC ’ .SC2. (TIME24-(I/I01 ) *0UTINC»  00004  0 30 

♦T0UT»Ap{Jl,J«i.x»t;0ni.T«TSTAaT.TE»t>«XP,n  _ 0030404* 

15  5 F0BXA7(  -H  ’ , ' ,X.  36HRadaR  ? A « aME T ER  S , TFaJECTORY  NUMBER  , 14 , 3X  , 1 OHBa'j0004U50 
*DlR  SITE,;-,?  2,3,”  Di”<UAT,"1Fl2,3,"  DEG, LONG,"  // 3X , "T jME" , 2X , 8H0 0004 06 0 
*Sx-RANGE, *X,  HSD-RANGE-RT.1X,9HELEVATlON,4X,7HEL-aATE.1X.7HAZl«UT00004070 
*R,3X,7hAZ-8ATE,2*,6hrAdiUs,  1X,7HlNR-PHl,  IX,  7HSJ,-RTrT,  4x  , 7HeL-RTRT  , U00040B  . 
*4X,7HAZ-HTRT,  X.^KReeNTTY.  IX. 7HHEADING/2X,5H( MIN) ,5X,4K(NM) ,5X,6H(  0000409  * 
*FT/S  ,5X,  a F.G  <5X.7H(QEG/S) .2X.5H (DEO), 6X,7h(deg/S), 3X.SH[gBU 1,200004 100 
•X.'r  OJG  . X,  3H  FT/S/S)  .2x.9H(DEG/S/S).2x,9H(DEG7s/S).2X.SH(DEG)i3300041  10 
*X, 5H(DEG)/! *X,F6.2, 1X.E9.3.  IX.El 1,U.3X.F7,2, 1X.E10.3, 1X.F7.2,  1X.E100004  12 
* 1.4,  1 X , F7 , 3 , 1X.F7.2.  1 X « F7 . 3,  1X.I10.3#  1X.E10.3, IX , F7 . 2, 1 X , F7 . 2 ) ) 0030413 

GO  TO  if  0 0 0 0 U 1 U J 

0300415* 

JPINT  JUT  xIRJTjSECJxP  AN’O  FOLLOWING  TIME  POINTS  00004  160 

0000417' 

15c  IF ( SWITCH ) GO  TO  *45  0 0 0 C 4 1 8 0 

GO  TO  16  3000419: 

1-5  IF  ( ’•'PAGE , Eg , 1 ) 50  TO  165  000042.;. 

1 c. 5 IF(TOUT2)GO  TO  17  0030421 

WRIT"!  6,  125)NTRJ,ISJT]j,Sc  . S c 2. I IME 2 , ( OU T A AD ! J > , J= 1 » I 9 1 ) 00004  2 2 

ISTRT  = ISTART  *•  TO*  U000423" 

WRITE  ! 6,  175  ) (TIME-* (( I-IO  ' )/I01 ) *OUTI»C, (OUTSaO(J) ,J» 1,14.101 1 ) .1*  0 000424 
*I3TRT, IESD. IC ' ) 0300425 

175  F0aMAT(2X,F*'.',2X,S13.6,4x,El3.6,5X,F7t2,3X,E*1.4,«X,F7,2,2Xi  El  1,4^,0004  26 
*.?X,F'.3,sX,F'.2i  0000427 

I ? ( S T C H P WPIT|(6,  i75)  TIME5,  ( O’JTRAD  ( J ) , J*IEND+  1 , IEND*IO  1 ) 000  0“  2»,' 

'190  Tjn e 2 ■ Time4  •>  0000429 

GJ  TO  1 1,  0 0004  3 C*i 
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i 

I 

: 

j 

I 


170  WRITE(6, 1?5)NTRJ|ISITE,SC  , SC  2 . TIME2 , ( OUTR AD ( J ) , J=  1 , 10  1 ) 
tSTRT  = ISTART  ♦ 10  1 

kbit's  (6#  185)  ( t jhs ‘•*17  i-xo  i ) /io  ij  •outxhc/ioutbad  ft) « j*x»  i*xo  1 1 j »** 

•ISTFT.JENt.IO-)  „ . „ . 

135  FORM aT I 1 X , r 6 , 2 , IK, Eg. 3 . 1 X A E 1 1,4,3X,FT,2, 1X»ElO,3, 1X»E7«2, 1X#e11,4, 
*1X,F7,  3,  IX.rT.2,  1X.F7.3.  1X>)j;1-.3,  1X.E10.3,  1X#F7,2,  1X,F7,J) 

Ir(S WTCHR)wRITE(g,i85) TIMES. ( CUTS  AD ( J ) i J«Zt KD  + 1 » IE ND*IO  1 ) 

GO  TO  1 9 „ 

165  tr(NSEc6.S'E.3)GO  TO  1g6 
SWTCHR  = .TRUE, 

IENd  * IENd  - 101 

IE ( M0p52, y E, - )ie«d*mod 52-101 

GO  TO  195 

3a£--lEIMD52,K£*ilIEHD?«Q.fl5I 

GO  TO  195 

C FRINT  OUT  LAST  TIKE  POttlT 

155  tF(NREC6.NE.3)GO  TO  200 
IF(K0D52,EQ,  ) GO  TO  205 

IE]NPA5?-iEQ.  1 >00  TO  2 10 

TEND  = XSI'aRT  * 1 + ,00052  - IU1 
270  Ir(I0Uj2)00  TO  22 

IF(IEND.IE.ISTaRT)CO  TO  2 1 5 

WRITE (6,  125)NTRJ,TSXTE,SC  ’ , Sc 2.  ( T I M E 2 ( 1/10  1 ) *OUTinc, 

* t 0UT11  AD  (J),J=I.  1*101  1).I*ISTART.IEHD#I01) 

9RITEJ6,  17  5JTI«e6,10'JTRaD{J).J  = IEND*1,IEKP  + I01) 

GOTO  Ilf 

2 '5  WRITE! 6.  1 25 ) NTRJ, ISITE, SC  ' , SC2, IIME6, ( OUTR  AD ( J ) , J* 
♦ISTART.ISTART+X01  1 ! 

GO  TO  11 

220  IfIIEWD.IE.ISTaBDGo  TO  225 

WRITE16,  laSiN’TRJjlSjTE.SC  , Sg  2 . ( TIME2+  ( I/IO  1 ) ‘OUTlUC* 

*ToUTRAd( J) . J=I.i  + l0  1 1 ) ,i  = lSTAKT,iEWD*io1) 

W8  ITS  I 6,  1 65)  TIMES,  (OUT*7A0fU),U3IEND'*'1/IEND'*'I01) 

GO  TO  11. 

225  WRITE (6,  135)NTRJ|XSITB.SC1.SC2.TIME6, ( OUTRaD ( J ) , 0 = 
*ISTAST,ISTART*I01  ' ) 

GO  T 0_  1 1 

205"IEND  = IEND  - 101 
GO  TO  23. 

2 ‘ 0 tFND  = MOD 5 2 - 10  ' 


0000^31 

0000«32 

0000433 

00004 34 

0000435 

00004360 

0000437  . 

v00C436  . 

0000439 

0 0 0 0 4 4 0 C 

00004U  1 

00004420 

0000443 

00004432 

00004434 

0 00  0 4 4 4 

00004450 

0000446 . 

0000447 

00004480 

0000«49 

000045-5 

00004510 

0000452; 

0000453 

0000454 j 

0000455P 

0000456c 

00004570 

0000458  7 

00004590 

0 0 0 0 4 6 ; o 

0000461  0 

0000462  ' 

0000463? 

0000464 

0000465 

C 0004  6 6 

C000467 

00004^8 

0000469 


GO  TO  2 3'.  0000470 0 

1*0  CONTIVUF  0000471,7 

SWITCH  = .FALSE.  0000472. 

SWTCHR  = .FALSE.  0 0 0 0 4 7 3 0 

T I (1 E 2 =»  TIKE2  ♦ ( lEMp/IO  1 ) *OUTIKc  0000474; 

GO  TO  8 0000475' 

30 c Rewind  8 0000476 

RETURN  00004  77'' 

entry  notvis  0000470. 

VRITEI6.25  )!7TRJ,I5ITE,SC'.SC2  0000U79 

2rC  EORMATl 1H1/// !QX, “OBJECT  NOT  VISIBLE  TO  RAOAR’V/IOX,  000048 
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onn  O)  | non  fi  on  on  n 


•"TRAJECTORY  Nt'MBEB'.IU.SXl’IADI*  ■XTE"« X4» T 1 2 . 3, 

!!  crs.liil4!/  2.3j"  pgft.iSi»fl.,T 

RETURN 

KNIBX  PLlAPt 

GENERATE  EAIA  TAPE/FILE  roR  INPUT  TO  PLOT  FftOSRAHS 

lKITIALHATZON-j£LP  P.LO.I-  Zx£Ullll~~ 

TINE3-I 

ISTCR3-1 

102-8 

lF(IPL0T2) 102*13 

S1EC3pQ. 

RRECn-0 
HREC5-0 
tOE*. FALSE. 

VRITE  ( 10)UfiE3.IPL0I2.I02.EOr 
RETURN 


ENTRY  ST  OR  TP 

temporarily  store  radar  data  pSok  missile/satellite 


timet-t 

..OPIPII  ilSia&U 
out?lt(istor3* 
OUTFIT ( ISTQR3* 
OUTFIT ( ISX0R3* 
OUTPLT ( ISIQR  3 
OUTPtT(ISTOR3 

.SlUmillSiaEJ* 
OUTPLT ( IST0R3+ 
ISTCR3-ISXCR3* 
KREC3*N  R Ec  3 ♦ 1 
»REC4=NRECk* 1 
IF { .NOT , X p l 0 T 2 
OVTPLTtlSTQBj) 
OUTFIT  ! IST0R3* 
OUTPLT ( ISIQR  3 + 
OUTPLT ( ISTOR3* 
0UT?LT(IST0R3+ 
ISTOR3-ISTOR3* 
RETURN 

ENTRY  PLTAP 1 


.-RST6.1Q 

1) «RSd*0. 016666667 

2) «£L*R7D 

3 )  »ELD*R7Dfi 

♦4l-Sl3*RT2 
♦ 5 1 = S x o d * R T d 6 

tiamain  

7)-X(3)*FTD-5La«S 

8 


♦return 

=B5c;*r35  

1 )  *ELdc*RTD36 

2) =SIGd3*RT336 

3) =F.:0AN*RTn, 

4) «HDBETa*RTD 
5 


OUTPUT  data  on  plot  tape/file 
EOF  10a. RAISE. 

‘write:  10 jNREC?,NREC«,NR?C5,EOriC. SWTCH2 
IF(NREC3,EQ,  ) RETURN 


000048  If 
0000482  . 
00004830 
00004840 
0000485u 
00004R60 
0000487 '• 

00004882 

00004*92 

OOOO4RO0 

00004910 

0000«q20 

C000«93C 

00004g4? 

GOOOuSjO 

COOOuJgO 
COOO497O 
00004gg0 
0000499; 
00005000 
00005010 
00005020 
00005030 
00005040 
00005050 
00005060 
00005070 
00005080 
00005090 
00005100 
0000511' 
00005120 
0 0005 1 3 0 
00005143 
00005  13.: 
00005l«0 
00005170 
00005180 
00005193 
00005200 
00005210 
00005220 
0000523  ’’ 
00005240 
0000525. 
000C5260 
0000527? 
00005280 
0000529’- 
00005300 
0000531 : 
0000532  . 
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ono  o I n(on  o i non  ni  non 


IF(NREC3.EQ. (-1)100  TO  135 

£fiAl«.-.MB£C£!ZU 

«BlTE(ToT(oUTPtTTl).I»<7To»Tjk) 

135  N»ec3-0 
IST0R3-1 
NRBC5»NREc5*1 
RETURN 

kktrx  pltend 

C OUTPUT  LAST  TXK*  Of  MISSILE  SXOHlIMO  BY  RADAR  SITE 

VRITE(  101TIME"' 

Return 

e 

ENTRY  PITAP2 

OUTPUT  LAST  RECORD  ON  PLOT  TApE/fXLE  FOR  ONE  SXQHTXRQ 
lOFIO-.TRU*. 

WHITE  ( 10)  NREC3,xREC4,KREC5*EOriO.*'«'TCK2 

Eeiur* 


entry  pitaps 

OUTPUT  FINAL  RECORD  ON  PLOT  FILE 



WRITE  ( 1C)TiME'3iIPLOT2>I02«E0F 

Return 

Entry  stort2 

S,ia.|g.  DATA  TOR  2fl?..IBVJECtgRY 

XX(  M«X{1) 

Xx ! 2 ) «X ( 2 ) 

XX ( 3 ) «X  ( 3 ) 

XX(U)»XD(1) 

XX15J«XP(2) 

XX ( 6 ) *XD ( 3 ) 

XX ( 7 ) »XDD ( 1 ) 

XX ( 8 ) *XDD ( 2 ) 

XX ( 9 ) «XDD ( 3 ) 

XX(  10)=ZK 

XX(’1j«PZ __ 

return 

ENTRY  OUTFOX 

ptACE  NOMINAL  TRAJECTORY  FaOAR  DATA  ON  A SEPARATE  FILE 
~ XSITE  «1 

IF ( . NOT , NZ ) BO  TO  4 0 


0000533 

00005340 

0000535C 

00005360 

10005370 

00005360 

00005390 

00005400 

00005410 

0000542? 

00005430 

00005440 

00005450 

00005460 

0000547'’ 

00005480 

00005490 

00005500 

00005510 

0000552C; 

0000553C 

00 005540 

00005550 

00005560 

00005570 

0000558C 

00005590 

00005600 

0 0005610 

00005620 

0000563? 

00005640 

0000565C 

00005660 

00005670 

00005680 

0000569'; 

00005700 

00005710 

00005720 

0000573: 

00005740 

00005742 

00005744 

00005750 

0000576C 

0000577c 

0000578 . 

00005790 

00005800 

00005810 

0000582; 
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REWIND  10 

llEWIKD  1 1 

UUO  8eAd(  ,0)Ilf!*3*tPtOT|.jOj,iOr 
NRITEi  1 1)HBE3.ifi,5T2.I02;EOr 
lrtE0E)80  TO  til 

It30  BEADt 101M*EC3.lTi,IS.lOI1  , JKICHl 
BRITEM 1 )NBEc3.ITR.XS,E0r iO,SWTcH2 

imonciSQ  io  .82 

RdaTa  ■KREc3*I02 

»IaD( 10) ( OUtPlT ( I )iI»1iK5A*A) 

BRXTEt ID (0UIPlTfl),I»1,HDATA) 

GO  TO  43^ 

420  REaD( lO)TInj7 


4 1 0 


400 


GO  TO  440 

XrdSIIE.EQ.SSITEJRETUHB 


ISITE»ISITE*1 
GO  TO  440 
CONTINUE 


END 


00005830 

00005840 


00005850 
00005860 
00005873 
0 0 0 0 5 8 B y 
00005893 
0C0059J2 
00005j10 
0000592Q 
00005930 
00005940 
0C005j5C 
00005g60 
00005973 
00005jB0 
00005990 
00006000 
00006010 
C0006015 
00006020 
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o o r>  o 


CRAG  4TH  ORDER  R l’  NG  E- KUTT  A-GILL 

SUBROUTINE  RKG 

Input /output  hod  1 

This  routine  is  a uth  order  runge-kvtta-gill  which  numericallt 
Integrates  the  2tD  order  non-linear  differential  equations  or 
Motion. 

ROUBLE  PRECISION  C , t , D . A . B . DEG . DXN , DXDX , DL, S AU » ABL E* B AKER 
ROUBLE  PRECISION  X,XD,XRD 

Rouble  precision  p,q 
Rouble  precision  pi.zk.bi.tvopi 

RlHENSION  C<4),  F ( 4 ) , D(4),  A(J).B(3) 

Rouble  precision  to 

COMMON  /Bi/  X(3).XD(3),XDD(3) 
tOMMON/GE/ZK.BI.P  1 
Common  /st/  p ( 3 ) . Q(3) 

•TTO/TO 

Rata  C/0.5d  ..  2928932138,  ' .7  710678  1, . 1668666367/ 

Rata  D/0.5D'.  .2926932188.  .70710678  1, -,5D0/ 

Rata  r/2. ‘dO. 1 ,ob3. 1 .odo. 2 .od:/. 

•TWOPI/6 . 2e3  '853  7 17958648/ 

60  10  J—  1 , 4 

Call  eqtnx 
lo  10  1=1,3 

R { I ) *XD ( I ) 

8(I)=XDD(I) 

RXN  =(A(I)-F(Jl*0(I)  )*C(J) 

Rx  DX  = ( B ( I ) - Ff J)  * Pill  ) * C(J) 

Rl=to*dxn 
* ( I ) =X ( I ) *dl 

»D(I)=XD(I)+TO*D*DX 
C(I)=Q(I)  *-3.  D0*DXN-D(  J 1 * A ( I ) 

10  t>  ( I ) =P  ( I ) ♦ 3 . DO*6XDX-D(J)*B(I) 

IF ( X ( 3 ) ) *3, 14. -4 

13  1(3)  = X ( 3 ) 4TWOPI 

14  Sad  = x ( 3 1 - twopi 
IF  ( sad  ) 12,11.11 

11  t<  3)  = SAO 

12  Return 
End 


70002170 

i ••002  18 

'•  00219 
00022 
.000221 
' J0222 
. 000223 
.000224 
. A u 0 2 2 5 ; 
000226 
0000227 
C ■'00228. 

• '00229 
. '0023  . '■ 
'00231 
000232 
. '00233 
0 000234 
00002357 
; 0 0 0 2 3 6 
' ' .'0237  . 
. .'00238 
. '00239  ' 
00  j024  . .:• 
0000241 : 

. .5  00242 
■.  300243  / 

'.300244 
. 700245 
00002460 
. 000247 . 
.000248 
’.•770249 

000025 : : 

: 300251 
■ 0 •:  0 2 5 2 ' 
. 030263 
. .3  u 0 2 5 4 
0 0 0 0 2 5 5 •' 
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Hl'MBEF  OF  TRAJECTORIES  SIKUHIEM  NTRaJ  ) 


seojestric  latitude.  *noeth  amc  -south  of  equator ( tkes ) -o.ii'  loon  2 deg 


GEOCENTRIC  latitude  or  RADAR.  -HORTH  and  -SOUTH  or  EqUAToR(SUT)  U,3S900D  02  DEG; 


Sample  Output  for  the  RADC  Trajectory  Program 
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C.  Cobra  Talon  Trajectory  Program 

1 . Introduction 

The  Cobra  Talon  Trajectory  Program  ia  a modification  of  the 
general  perturbation  program  developed  at  RADC  by  Mr.  George  A.  Ellis 
for  the  prediction  of  the  position  and  velocity  of  an  earth-orbiting  satellite 
or  ballistic  missile.  The  Cobra  Talon  program  was  used  to  furnish  data  for 
the  study  associated  with  the  Cobra  Talon  radar  project.  It  differs  from  Mr. 
Ellis'  program  primarily  in  the  use  of  the  first  trajectory  as  the  nominal 
trajectory  for  the  perturbation  calculations.  PRC/ISC  has  made  the  neces- 
sary modifications  to  the  Cobra  Talon  program  so  that  it  can  be  implemented 
on  the  interactive  system  for  the  RADC  Radar  Simulator.  The  reader  is 
referred  to  two  documents  for  further  information:  "COBRA  TALON  STUDY 
COMPUTER  PROGRAMS,  " by  John  C.  Cleary  and  Leonard  C.  Giatch,  RADC/ 
OC-TM-71  -4,  and  "SIMULATION  PROGRAM  FOR  THREE  DEGREES  OF 
FREEDOM  TRAJECTORIES,  " by  George  A.  Ellis,  et  al.  Technical  Memor- 
andum No.  EMA-TM-66-5. 

2.  Computer  Program  Operating  Environment 

a.  Computer 
Honeywell  6000. 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c.  Memory  Requirement 
16  K words 

d . Typical  Processing  Time  Required 

0.  25  hours  (900  seconds) 

e.  Peripheral  Equipment  Requirement 

Four  disc  files  (file  codes:  02,  03,  04,  07). 
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f. 


Non-system  Subroutines  Required 


ATMOSP 

CONVER 

EQTNX 

ICERBM 

INPUTT 

OUTPUT 

PRINT2 

RKG 

SAVE 


Atmospheric  model. 

Conversion  of  trajectory  to  radar 
coordinates. 

Computation  of  acceleration  com- 
ponents. 

Performs  initialization  for  tra- 
jectory computations. 

Input  subroutine. 

Stores  trajectory  data  in  an  array 
for  outputting. 

Prints  out  trajectory  and  radar 
data. 

Performs  4th  order  Runge-Kutta- 
Gill  integration  of  equations  of 
motion. 

Outputs  trajectory  and  radar  data 
onto  files. 


3.  Inputs 


The  following  is  the  set  of  input  parameters  required  for  the 
Cobra  Talon  Trajectory  Program: 

NAMELIST  INI 

TM  - Maximum  forward  trajectory  run  time  (minutes) 

TMI  - Cut-off  time  for  backwards  trajectory  (minutes) 

NAMELIST  IN 2 


CA  - Surface  range  - dummy  variable  (degrees) 

BETA  - Missile  heading  angle  measured  clockwise  from  north 
(degrees ). 

GAM  - Missile  re-entry  angle  relative  to  vertical  (degrees). 

HX  - Height  of  missile  at  burnout  (feet),  referenced  to  earth's 

surface . 


NAMELIST  DM3 

KZ  - Program  control  variable. 

= 0 differences  are  calculated  relative  to  third  trajectory. 
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differences  are  calculated  relative  to  first  trajectory. 


[ 

1 


= 1 

NAMELIST  IN 4 


ELIM  - Maximum  co -latitude  of  elevation  angle  for  which 
radar  coverage  parameters  are  determined  (degrees). 

NAMELIST  IN 5 

VO  - Initial  velocity  of  missile  (ft.  /min.  ). 

INERTL  - Initial  velocity  option  variable. 

= 1,  initial  velocity  is  inertial  velocity  (SATELLITE  orbit). 

= 0,  initial  velocity  is  burnout  velocity  (MISSILE  trajectories) 

NAMELIST  DM6 

7 

ZK  - ZK=g/2Bc  ( Bc=ballistic  coefficient  in  lbs. /ft.  and  g=32.  2 
ft. /sec.  2),  measured  in  ft.  ^/slugs. 

KAT  - Atmospheric  model  option  variable. 

= 0,  sets  the  atmospheric  density  to  zero. 

= 1,  use  the  atmospheric  model. 

NAMELIST  IN 7 

A - Out  of  trajectory  plane  perturbation,  + ejected  to  the 
left  of  nominal  trajectory  (ft.  / sec.  ) 

B - In  plane  perturbation,  + ejected  backward  from  nominal 
trajectory  (ft.  /sec.  ). 

C - In  plane  perturbation,  + ejected  upwards  from  nominal 
trajectory  (ft.  /sec.  ). 

MM  - MM-3  gives  nominal  trajectory,  MM  greater  than  3 gives 
MM  minus  3 perturbed  trajectories. 

NAMELIST  IN 8 

SCI  - Radar  latitude  (positive  north  and  negative  south  of 
equator)  (degrees). 

SC2  - Radar  longitude  west  of  Greenwich  (degrees). 

AH  - Altitude  above  sea  level  of  radar  (feet). 

NAMELIST  IN 9 


GLAM  - Launch  longitude  east  of  Greenwich  (degrees). 

THE  - Launch  latitude  (positive  north  and  negative  south  of 
equator  in  degrees). 


! 


> 
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GLAMI  - Impact  longitude  east  of  Greenwich  (degrees). 


THEI  - Impact  latitude  (positive  north  and  negative  south  of 
equator,  in  degrees). 

4.  Output 

Output  from  the  Cobra  Talon  Trajectory  Program  first  consists 
of  a printout  of  the  input  data  for  the  computer  run.  Secondly,  the  output 
consists  of  a printout  of  data  generated  for  the  first  trajectory.  This  data 
is  printed  out  as  a list  of  trajectory  parameters  (e.g.,  radius,  latitude, 
longitude,  etc.  ) versus  incremental  trajectory  time  points  (generally  sep- 
arated by  0.  1 min.  increments)  from  start  time  to  end  time.  If  the  target, 
whose  trajectory  has  been  generated,  is  detected  by  a radar  site,  a listing 
of  the  radar  parameters  computed  for  the  site,  from  initial  time  of  detection 
to  time  of  leaving  coverage,  is  also  produced.  A description  of  the  complete 
set  of  output  quantities  for  the  first  trajectory  follows: 


Output  Parameter 

Units 

Description 

Time 

Min. 

The  time  from  burnout  of 

1 

the  missile  along  its  tra- 
jectory or  time  from  the  in- 
itiation of  the  satellite  orbit, 
if  that  is  appropriate* 

Radius 

Ft. 

Earth-centered  radius  of  the 
trajectory  or  the  distance  of 
the  missile  or  satellite  from 
the  earth  center  at  the  time 
point  above. 

Latitude 

Deg. 

Position  in  latitude  of  the 
missile/satellite  in  its  tra- 
jectory at  the  above  time 
point. 

Longitude 

Deg. 

Position  in  longitude  of  the 
missile /satellite,  east  of 
Greenwich. 

Height 

Ft. 

Altitude  above  sea  level  of 
the  missile. 

Velocity 

Ft.  /Sec. 

Inertial  velocity  of  the 
missile/satellite  along  its 
trajectory. 
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Description 


R(Sea  Level)  Ft.  Radius  of  spherical  earth  model. 

3 

Density  Slugs  /Ft.  Atmospheric  density. 

R-Dot  Ft. /Sec.  Geocentric  radial  component  of 

velocity. 

Lat.  -Dot  Deg.  /Sec.  Geocentric  latitude  component 

of  velocity. 

Long. -Dot  Deg. /Sec.  Geocentric  longitude  component 

of  velocity. 

R-Dot  Dot  Ft.  /Sec.  Geocentric  radial  component  of 

acceleration. 

Lat. -Dot  Dot  Deg. /Sec.  Geocentric  latitude  component 

of  acceleration. 

Long. -Dot  Dot  Deg. /Sec.  Geocentric  longitude  component 

of  acceleration. 

If  the  target  of  the  first  trajectory  is  detected  by  radar,  the 

trajectory  in  terpis  of  radar  coordinates  is  printed  out  as  follows: 


Time 

Slant  Range 

SI  Range  Rate 
SI  Range  R Dot 
Azimuth 

Az  Rate 
Az  R Dot 
Elevation 

El  Rate 
El  R Dot 
Reentry  Angle 
Heading 


Min.  Same  as  for  Time  described 

above. 

Ft.  Radar  slant  range  to  the  missile/ 

satellite  for  the  time  point. 

Ft. /Sec.  Radar  slant  range  rate. 

Ft.  /Sec.  Radar  slant  range  acceleration. 

Deg.  Radar  azimuth  look -angle  to 

missile,  measured  clockwise 
from  north. 

Deg. /Sec.  Radar  azimuth  angle  rate. 

2 

Deg. /Sec.  Radar  azimuth  angle  acceleration. 

Deg.  Radar  elevation  look -angle  to 

missile. 

Deg. /Sec.  Radar  elevation  angle  rate. 

Deg. /Sec.  Radar  elevation  angle  acceleration. 

Deg.  Missile  re-entry  angle. 

Deg.  Missile  heading  angle. 
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If  more  than  one  trajectory  is  generated  in  the  computer  run, 
the  above  set  of  trajectory  data  will  be  computed  for  the  second,  third, 
etc.  , trajectories  also.  Radar  parameters  for  the  targets  corresponding 
to  the  trajectories  will  also  be  calculated,  if  the  targets  are  detected. 

Following  the  last  set  of  trajectory  and  radar  data,  radar 
parameter  differences  may  be  calculated  and  printed  out.  These  differ- 
ences will  be  produced  for  each  perturbed  trajectory  when  MM  is  greater 
than  or  equal  to  4.  The  parameter  differences  represent  the  values 
obtained  by  subtracting  the  radar  parameters  for  the  perturbed  trajectories 
from  the  corresponding  parameters  for  the  nominal  trajectory  (trajectory 
#1  or  #3).  Below  is  a list  of  the  output  quantities  comprising  the  radar 
parameter  differences: 


Output  Parameter 

Units 

Description 

Time 

Min. 

Same  as  for  Time  described 
previously. 

Slant  Range  ( A R) 

Ft. 

Difference  in  radar  slant 
range  (nominal  trajectory 
slant  range  - perturbed 
trajectory  slant  range). 

SI  Range  Rate  ( A R) 

• • 

Ft.  /Sec. 

Difference  in  radar  slant 
range  rate. 

SI  Range  Rate  Dot  ( A R) 

Ft.  /Sec.2 

Difference  in  radar  slant 
range  acceleration. 

Azimuth  ( A A) 

Deg. 

Difference  in  radar  azimuth 
look -angle  to  missile. 

• 

Azimuth  Rate  ( A A) 

Deg. /Sec. 

Difference  in  radar  azimuth 
angle  rate. 

• % 

Azimuth  Rate  Dot  ( A A) 

Deg. /Sec.  2 

Difference  in  radar  azimuth 
acceleration. 

Elevation  ( A b) 

Deg. 

Difference  in  radar  ele- 
vation look -angle  to  missile. 

Elevation  Rate  ( A b) 

Deg. /Sec. 

Difference  in  radar  elevation 
angle  rate. 

Elevation  Rate  Dot  ( A E) 

Deg.  /Sec.  2 

Difference  in  radar  elevation 
angle  acceleration. 

Angular  Separation  in 
Radar  Beam 

Deg. 

Total  angular  separation  in 
the  radar  beam. 
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The  reader  is  referred  to  the  sample  output  for  an  illustration 
of  the  printout  format.  The  set  of  trajectory  and  radar  parameters  for 
the  first  trajectory  only  is  included  there,  as  is  the  set  of  radar  parameter 
differences  for  the  first  perturbed  trajectory  only. 

5.  Sample  Job  Stream 

The  sample  job  stream  on  the  following  page  is  set  up  for 
producing  plots  of  radar  data  from  the  first  trajectory.  This  data  is 
placed  on  file  STORE1  and  would  be  punched  out  onto  cards  for  plotting 
by  means  of  the  Hewlett-Packard  9820A  calculator/plotter  if  plots  were 
desired.  If  plots  are  not  wanted,  line  80  of  the  job  stream  could  be 
replaced  by  0080$;  DISC:  02,  XI R,  1 0L. 


00  10$ 

I 0EMT : CLEARY , C3MT  I , 65  1 2 1 1 C4!<A0C 

0020$ 

MSE2ID:  CLEARY  $THP«EE 

0020$ 

L3ML3A0 

00  40$ 

3PTI0.1:  F IRTRAU 

0050$ 

SELECT:  CLEARY /3TRA.JT 

0060$ 

EXECUTE 

00  70$. 

LIMITS : 40, 1 6K, , 1 5000 

0030$ 

PRMFL : 02,  R/  /,  L,  CLEARY  /STORE  1 

0020$ 

OI  SC: 03,X2R, 50L 

0100$ 

DI SC : 04, X3R, 1 0L 

0 110$ 

DI  SC: 07, Y4P,  I0L  | 

0120$ 

LATA: 05 

C13C  $111 

0140 

TM=44.000, 

0150  TMI  = 0.000,  „i 

0160 

5 EM  C 

Cl  70  $112  \ 

0130 

C A=9 1 . 565100,3FTA=273.000, 

0190 

GAM  = SS.  0F,0,  HX  = 4 . 005, 

C200 

5E'10 

02  10 
r\n or  * 

sm 

Uu  clO  1 

0230 

— 1 , 

&e:jo 

0240 

5IM4 

0250  ELIM  = 39.500,  ! 

0260 

1 EM  D 

0270 

5115 

02-30 

Vfl= 1 .05606, 

0290 

imertl=o. 

0300 

bF.MD 

03  10 

5116 

0320 

7X  = 0 . 3210-1,  XAT  = 1 , 

0330 

sE.l  0 

0340  $P!7 

03  50 

A=  7*0 . 000, 5 • 0D0, 2*3 . 53300, 

0 360 

3=4*0.000, 5. COO, 3.53300, -3. 53300, 0. 000, 3. 533D0, - J. 5 33D0, 

0370 

0 = 3*0. 000,5. 000, 0.000, 2*3.53300, 3*0. 000, 

0330 

MM=8, 

0390 

5F.MD  |] 

0400  $ I ‘ J 3 

°4  1 C 

SC  1 = 1 3. 20C, SC 2 = 0.5 333 3 33400,  1 

C42C  All  = C.00C, 

0430 

> cLI  J 0 

0440 

5 1 '19 

0450 

jL,Ari  = 2"7  •OIj'Oj  T LE=  42  • 5 jO* 

04  60 

jLAMI^oO.ODO,  T j 1 71 1 =-40  • G~jOj 

0470 

) wi'<i  D 

0480$ 

e:jdJ3B 

049  0*  * * E0  F 

Sample  Job  Stream  for  the  Cobra  Talon  Trajectory  Program 

M|M|  - 
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HIS  6000  Batch  Submittal  Form 
III- 1 1 0 


3066T  11  01-07-76 


15.345 


c 

program  traj  converted  talon  clEary 

00001000 

rouble  precision  x. xd, xdd, to, tn 

00001010 

DOUBLE  PRECISION  Tc,TI,KK,TW 

00001020 

BOJBlE  PRECISION  ARRAY. SCI. Sc2,T,h,XYZ.R9l,R2,R,*.P,Q 

00001030 

IQUSwE  PRECISION  ARRAYl 

00031040 

BQO0lE  PRECISION  TN.STN 

00001050 

DOURlE  PRECISION  radang 

00091060 

lOYMONXTS/T.R.XrZ.RSL.PZ 

OCOC1070 

63phon/aXriw 

ocooioeo 

tO^MON^ST/P 1 3) , 3( 3) 

000 0 1090 

tO MHON70S/  X(3>,  XD  t 3 ) . X DD ( 3 ) 

OCOOnOO 

•o^mon/ax/tm.m 

00001110 

fO^MON  I S W 

00001120 

B0'4H3N/PARAM/ARRAY<2u).MAXi,MAX2,Sci.SC2»ARRAYl(2f'> 

00001130 

COhhON/NTRaj/NM 

000 G 1140 

common/swj/<z 

00001150 

KZ  .N£.  1 GIVES  ORIGINAL  PROGRAM 

00001160 

GALL  inpuyt 

00001170 

ICYR  = 3 

OOOOllftO 

1 34  = 0 

000CH90 

1 ALL  FLGEOF  < >2,  IEOFN) 

0 5 OG 120  0 

CAll  FLGEOE  ( O7 • IEQFP ) 

0C0C1210 

• = 20925640.00 

00001220 

41  = 0 .43752690480-2 

00001230 

#K*5. 72961D1 

00001240 

?Tm  * MM 

00001250 

4 

CO  17  M . l#  I T M 

00001260 

TFUZ.NE.i)  GO  to  540 

00001270 

I r ( M . EQ  . 2 ) GO  TO  i 7 

ocooipeo 

Tr ( M , EQ . 3 ) GO  TO  17 

00001290 

540 

CONTINUE 

00001300 

t A»L  SAVELI 

00001310 

BAlL  ICERBM(R) 

00001320 

BO  11  1=1*3 

0000l330 

P(  1 ) = 0 .oDo 

0r001340 

Ti 

3(1)  = u . 0 D 0 

OG 001350 

IF<M,EG.2>G0  TO  6 

00001360 

»0* . ID-1 

01001370 

1 T = 1 0 

0 C 0 0 1 3 8 0 

X A = 0 

000,?1390 

48*0 

00001400 

20 

BO  16  K=i,60 

00001410 

CO  1 K9*i, IT 

OCO 01420 

IFlH.LT.u, 000)30  TO  2 

00001430 

9 

CALL  R«G(To) 

00001450 

T s T*  TO 

00001460 

6 A mL  EOTNX 

00001470 

!f(T-TM)i.2,2 

00001480 

1 

continue 

OCO  01490 

1F(M,GE.3)  GO  TO  3 

00001500 

CALL  OUTPUT ( K1 I 

OOOOiSiO 

Call  CONvEr 

OC001520 
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4fl**T  II  01-07-76  15,345  _ 

ir<P7,NE,0,0D0)Q0  TO  92 
IQ  TO  16 

92  |F(Ka.E0.1|G0  TO  94 

K*»l 

»e»T 

10. .10-2 

tJT  » 10J0 

10  To  16 

94  |F(H-2.0d3|96.96,16 

?*  |f (KB • EG . 1 ) GO  TO  l8 
HS«1 

ir.T 

I0..1D-2 


t T s 1000 

10  Ta  16 

— 

3 CAUL  OUTPUT ( Kl ) 

CALL  conver 
fr(PZ.NE.o,oOo)GO  TO 
|0  TO  16 

62 

62 

|P<H-2. 003*63. 63. 64 

63 

IOVlD-2 

»T«1 

10  TO  1* 

64 

IB* , ID-2 
IT  s 1000 

16 

CONTINUE 
•0  TO  20 

2 

|f(M.E0.1>G0  TO  8C- 
CALL  PRIMT2<1> 

CAUL  PRIMT2(-1) 
|0  TO  l7 

60 

■ ALL  PR  I MT2 ( 1 ) 
BALL  PR  I NT2 ( -1 ) 

60 

10  TO  17 
|Q*-,lD-2 

70 

TT«1 

BO  18  K6«l,60 

BO  40  K8«l  | IT 
1F(T.LE.O.ODO)SO  TO 

86 

86 

10  "TO'  10 
CALL  PR l NT2 ( 1 ) 

10 

10  To  l7 
C*ll  rkg(to> 

T - T+  TO 

IALL  eqtnx 

40 

CONTINUE 
CALL  OUTPUT ( Kl > 

CI*DiBS ( T-T 1 ) 
If(Tx.LE. .lD-4)G0  to 

42 

"TFir.LE.TijGO  T3  44 
60  TO  18 

42 

|T. 20 

0G0015JC1 
0C001540 
00001550 
000015*0 
OC  001570 
00031580 
OC  001590 
00001600 
00031610 
00001*20 
00001630 
00001640 
00001*50 
00001660 
00001670 
00001600 
ococi*9o 

000C1 700 
0C0C1713 
00001720 
03001730 
00001740 
00031750 
03001760 
00001770 
0C0C1780 
00001790 
0 C 0 11000 
00031310 
00001320 
00001030 
00031340 
00001850 
00001860 
03031870 
00001080 
OC 001 890 
00001900 
00001910 
0C0C1920 
00001930 
0001l?40 
0 CO  01 950 
OC 001960 
00001970 
00001900 
000 J1990 
00002000 
00002010 
0C0020 20 
00002030 
0C032Q40 
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|fl»-.lD-2 

•0  To  lfl 

44  »h«d*bs ( r-yc j 

IFtTK.LE. . jD-4 ) 3D  46 

IQ  TO  18 

46  f T • 1 0 


18 

17 


|Q. -.10-1 
IflNT ! NUE 
IQ  TO  TO 
fcQNTlNUE 
22  |ND  riLE  2 
Pi w I nq  2 
fiND  FILE  7 
8EWIND  7 
BEAD  (02)  *RRaT 
IF(lEOfN)  3o5.69.3o5 
69  |TN  a ARRAY  < 1 ) 


BSTn  s STN 
ITT  s ARfUY(l) 

P*lNT  33) 

330  FQRMA T(1W1, /////////////////////// ///66(2H*  ),///38X 

•pradar  parameter  differences<perturbed-nominal >" • 

•R^/66(2h*  )>/66(2H*  W1W1) 

PRINT  440, M 
IRlNT  34, j 


print  337 
PRINT  999 
PRINT  345 
PRINT  336 
PRINT  999 


00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

OCOC2140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

0000^210 

00002220 

00002230 

00002240 

0C002250 

00002260 

00002270 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 


999  SQRMAT ( 14  ) 00002470 

440  F0RMAT<ini»2nX.5H  M s ,14)  00002480 

340  P08MaT<140,4MTIM5,4X,11HSLaNT  R ANGE # 7 X , 13HSI  RANGE  RATE , S X# 17HSI  R00002490 
l»SGE  RATE  DOT, 7X,7WAZIMUTH,8X,12HAZIMUTH  RaTB)  00002500 

345  rORMAT<ijX,16HAZIMUTH  RATE  DO T , 4 X , 9HELE V A T 1 ON i BX i j.4 HELE V A T I ON  RATE000025!0 

00002520 


310 

204 

203 


1;|X.16WElEvaTI3N  RaTE  D°t> 

■EAD  (07)  A«^aT1 


C F ( I EOPP ) 200,2  4,200 
«TT1  = ARRAYKl) 
IF(STT.EO.STTl)  30  To  25ii 
!F(STT.GT.STT1)  30  To  210 


00002530 
00002540 
0C0"2550 
00002560 
OC  00257 o 


214  |EAD  (02)  array 

K(IeOoN,  305,2.2,305 
202  ITT  s aRRaY<i) 

10  TO  203 

305  ICTR  = ICTR  ♦ 1 

I F ( ITM.EO. ICTR)  30  TO  20j 
PRINT  AAr.M 
PRINT  34 j 
PRINT  337 
PRINT  999 
PRINT  345 


00002580 
00002590 
00002600 
000:2610 
000C2620 
00002630 
0 C 0 02 64  q 
00002650 
00002660 
00002670 
00002680 


Uttftl-ii  . fll.-Q.7-Z*- 19*3*9 


MINT  31| 

MINT  999 

337  ^BRHAT(2X,7HMlNJTES,2X,4HFEET,14X,9HrEET/SBC:.10K,12MrEET/9EC/SEe, 
HIX.7HDEQREES.  1x,11HDEGREES/SEG) 

336  •89M*T(lQx*i5H0ESBEEf /SEC/SEC. 5X;'7HDf0REBS;iflX,nHDE0REES/SEC.9x; 

lil^EQUEM/SEC/SEtT)  ~ 

■ HIND  2 

~TftL  FllHT  (o2,IE»FN> 

IF  (9TT.uE1STTt)  GO  T|  333 

' "is  To  2*r 

333  BEAD  (07)  ARRAY1 

P_- - - . Qf  ,rT_#  733 472 §| 

_J34  _JTTl»ARRAYi<  1 ) 

IF  (9TT.lE*STU)  Gl  T|  333 

• *AD  <02JL4MAY _ 

~|F  (IE0FN)  305.335.3u5 

_?3? 17.T  *4*5  AY  (1 ) . . . _ . .... 

ID  To  2*3 

210  IF ( SSTN , 6* tSTT 1 ) Qt  T»  212 

10  TO  310 

218  I»WUP  2 _ 

lAll  fIGBOf  (02.IEOFN, 

»0  TO  214 

r.  aMayuj  -■  " ‘ 

IBS  ■ - \ARRAY(2)-ARRAY1<2) ) 

BfiSD  ■ - 1ARR*Y(3)-ARRAY1(3) ) 

B«SD0»  - 1ARRAY<4>-ARRAY1(4> ) 

If  W ~m-~  Wmr  ( 5 f - AMA^l  13)) 

ISIGD*  - WRRAY<*>-ARRAYl<6>  > 

I3IG6D  47 aRRATr7)-AMAYl(7)5 

BIU  • - (ARRAY<t)-ARRAYl(B>  ) 

IBLD  a - \ARRAY<9)-ARRAY1(9) ) 

BBLDO*  - tAR"AY<10)-A**AYi<io>) 

IADaNG  » DS0RT(DSTG**2  ♦ DEt**2* 

#8  I NT  350,DT.DRS,DRSD.DR*DD/OSIG,DSIGD.OSIGDO.OEl..OeLO.OeiOD 

FRINT  780,RaDAN3 

•BINT  999 

—701  FORMATriH*.3**T  ANGULAR  SERRATION  IN  RaDAR  if  AH  ■ 7D22.10) 

3lo  PORMAT(F7.3.2X.Dl7,lU,2X#Dl7;io*2X.Dl7.lO»2X.'Dl7,io,2X.Dl7,io/’ 

1 *KiOir.Ii.2X7Ol7TI0.2X.Dl7.1042X#Ol7,10I 

201  *EAD  < 02  > AR*A* 

IFtlEOFN)  305, 312,305 
312  ITT  s ARRAY(l) 

ItT  To  31J 
200  »T0P 
ISO 


00002690 

000027CQ 

OC0f>2710 

00002720 

000n273g 

000027AG 

00002750 

00002760 

00002770 

000027BO 

00002790 

ooog2®oo 

0P0028iQ 

00002020 

00002830 

00002940 

00002850 

0C002860 

0C002870 

0000288o 

00002890 

00002900 

00002910 

00002920 

0C002930 

00002940 

000C295C 

00002960 

00002970 

000029BO 

00002990 

00003000 

00003010 

00003020 

0u093030 

0C003040 

00003050 

0C003D6Q 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

OCOC3130 

00003140 
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IU3R0UtING  EQTNX  

f 0 J B L E P RFcT S T 3 N Afl R A V 7 S C 17 5C2,  T , H , XVZ  7R5C iFZ»R7U,P7S“ 

BOJBlE  PRECISION  V6iEL2,EL3,El4»EL5>EL6»AA 

BBUBlFTTTEI; T5 1 TTDV  .XYZ  • ZIT,  Si'»"S2,'S3»'SA , S'67  VA/VUD*  VD.S23  7Q  1 , 02 . 
BOJBlE  PRECISION  X.XD.XDD 


B ! ^EvjS  I On  n V < 5 > 


Co^HON/TS/T.w.XXZ.RSL.PZ 

fcO«MON/A/P,H 

common/eqaTho/Z<,kat 

FaT  A" -JJ  V77  7S2  i 6 Tri  b 17T4  5 (JTT)T7 

56=2 , one 
61«DC0S‘(X(2)  > 

52»DsIN(X(2)) 

S3=D?I^(S6*X(2) T 
4*DC0S ( S6*X ( 2 ) ) 

L 1 P 

M*  X ( 1 ) - SSL 

TrfKAT.'EO",!.)  ~0'7C~5T ‘ 

20  ?z  = 0 . j DO  

50  TO  3 

1 C A »L  ATMOSP 

30~pa  ='_rTD7iT*XDmTrnrii  )«xm  )*XDr7T«xD(23*(5r»"(  xd  mnrrr*)*?  — 

KYZ  = X(1)*DS0RT(\/A) 

V DO  * X D ( 1 ) # X D ( 1 J * XTi)»XDr?r.Xm;x-D(2T+mn*<XD(3)-W7.Sl)0.2 
VD'OSQRT ( Vdd) 

B23s_f57.?K*vD 
Ola  5 2 3 * xD ( 1 ) 

TZ^^-WUTZT 

6ja  S2j*  ( XD(  3)  - «i ) 

V6  = R/XfTT  ~ 

| L2=x ( 1 ) »X0 ( 2 ) »XD ( 2 ) ♦'  . 5D  * ( 1 . UD0*S4 ) * { W*XD ( 3 ) ) * I W + XD ( 3 ) ) *X (1 ) 
eL3Sf)V<7  1/Xf  i )*76*DV^2  VX<T)*v6*#3*tT.  ODO*S4-i.0OO  ) 

BL‘}  = nV(3)/x(l)»V6*»5»(35.  D0*S4*S4-10, 0D0*S4-13,  ODO) 

- “X D 07 TT-~  EIT^lT^l ttoT 

6L5s((-S6*xD(2)*XD(1))/X<1))-  . 5P0*S3*(W*XD(3)).<W*XD(3>) 
FL5s-D'(  t4)7CYCl)*X(l)  )*V6**3*S3  + DVC?7/(Xtn«X(l  J)*V6»*5*S3»I1. 
17. 0D0*S4) 

XD"(2)=Ei.54.El602 

AAs-ti  Dj*(k+x0(3)) 

KDO  (7)sjAi  [ 5‘6  • XUTIT/X  TTTT-TUVT  X6  * TDT  2TTS2  TVST*03‘ 

retJrn 

6N0 


0C003150 
T)  0003160 
0CO0317Q 
OX  C00n3180 
00003190 

uvirrjzm 
00003210 
0000^2 2 6 
_ 00 003230 
‘ or  003240 
00003250 
0 T503260' 
00003270 
ooodsPo 

0G0C3290 
00003300 
00003310 
OC 003320 
J3000333D 
00003340 
OC0C3350 
00003360 
00003370 
OTU  jXJBO'" 
0C003390 

0X01)3  W 
_ 00003410 
00003420 
00003430 

oTor^trd~ 

0 0 C 0>  3 4 5 0 
07003460 
CCC 03470 
TOO  23480 
CC0C3490 
— 'CTO  0 "'350  0 _ 
00003510 
ODO-C"0"3570 
000' 3530 
0 0 0 C 35  < 0 
OCOC3550 
" CC003560 
o : or  3570 
00003560 
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11.192 


SUBROUTINE  ICER3T<pT 

J 

,69 

C 0 0 8 c E PRECISION  VO. RAT 

.) 

•J 

3 6 ; 

D0J8LE  PRECISION  RDP.RTD^.RLfiP,C'i3.0MU.CA,GAH,3ETA,3LA-1.MX,TH6,K0 

0 

r. 

dojblf  precision  x.xd.xdo 

U 

0 

7,? 

DOJBlE  PRECISION  ARRAY, Sfi\  Sc?, T,H,XYZ.RSL»PZ*R.wtP.3 

«J 

G 

7,3  ■ 

LOJBlE  PRECISION  P.GEO.GLAMy.ROiO.TMED 

0 

c 

36  A 

~DTJTBlE  PRECISION  XH,'X"i.N" 

J ' 

c 

36S  ’ 

COJBlE  precision  oosgam(coshet,sin;,am,sinret,  V2,  A.o.c 

0 

u 

3 66  i 

COJB.F  PRECISION  SN(,  ;30  0P,  v-.o 

II  ■ 

0 

3S7f. 

COMMON /BS/X< 3) , XQ<  3) ,X,  D(  3) 

u 

u 

3,«.I 

common/ TS/T.  a • XYZ.RSfPZ 

0 

U 

,369.. 

CQMMON/A/R*W 

(J 

u 

3 7 1 

CITKmON;  i C/C  A ; 3=Ta",  G Al^.  HXVgl  AM.'Tfi'E  ,'GL  am  I ,ThEI 

h 

•J 

3 71 

C0Mm0N/PT0R8/aI 2 >,8<  >,C<2  > 

0 * 

0 

7 7? 

caMM0N/Ic2/V0, I nertl 

.1 

0 

373 

C0MM0N/5W1/KZ 

J 

3 74 

common/ ic^tmi 

n * 

0 

3 73 C 

DIMENSION  R DP  < 2 ),RlDP<2  ),PT»P(2  ) 

;» 

(i 

37*3 

DIMENSION  XN ( 3 ) » XDN ( 3 ) 

u *. 

0 

■377 

DIMENSION  XN1 <2  ) . XDN- (2  > 

0 . 

o 

, 7 A 

DOURLc  PRECISION  GUAM ; » THE  I 

u 

0 

T 7 9 

QOURLE  PRECISION  TMI 

0 

0 

3SJ*‘ 

DOJ0!  E PRECISION  TM.ST  1 , T M 

0 

l) 

SAIL 

CORMON/AX/TM. M 

0 

0 

7 6? 

_ 

'c  O';  ~T7403~2  7751T9  4 TT'  57  6 9 23 ~ 

0 

-SB-*' 

GMJsR.  ,675  ..  4 D 1 9 

J 

J 

3*4 

RO  = R ♦ HX 

l) 

0 

3 65 

I F(M-2)6,i  .16 

y 

J 

$ 66 

6 

CONTINUE 

ij 

J 

3 67. 

XD(l)sVO»DCOS( 3 A M * C 1 3 ) 

U 

0 

T ^ /A 

' X 0 ( 2 ) s Vo / R 1 1 ' * D s I J ('  G 5m » C • 3 ) * 0 (Til S Cff £ t \ * C 3 ) 

rj 

RAT  = RO«DCOS(  Tr)r»Ci  3) 

0 

0 

79  ' 

XDI 3 ) sV0*T5S ; N(  3a  NftCrs ) «RS  iN<  RSTA.f'c  l 3 )/RaT 

I! 

') 

391  . 

I F ( I NER  TU  . EQ  . 1 ) XD  I 3 ) = Xfi  ( 3 ) - W 

(' 

l) 

.391, 

X { 1 ) =R0 

f; 

'J 

397 

X f 2 ) - THE*C13 

') 

'1 

3 9 3 

Xl3is  "SL'Afl-Clj 

• 

u 

77<i 

4 

caul  pot  jx 

‘j 

vJ 

/ 9 6 

call  ‘CMVfcR 

J 

3 y K 

CAuL  OUTPUT(k) 

0 

Ll 

. 377 

irc,<2.NE.  ll  GO  rO  3 

')  ' 

J 

•39s- 

DO  32  1=1,3 

<9 

39  6 

* ‘ 

XN1( 1 0 = X ( I ) 

0' 

J 

• 4 “ ,*V 

X ON  1 ( I > = X0< I ) 

; 

1 

A 1 

t2 

CONTINUE 

..1 

j 

a;? 

7U 

CONt I NuE 

i 

n 

a 7 

TNsTM 

’ 

0 

A 75 

EeTupN 

0 

0 

A A 

C ' 

TA R 3 T LOCATTPN 

J-' 

"> 

2 

4 ' n - 

10 

CONTINUE 

0 

4 A 

x<2)  s rHc I » C 1 3 

A 

o 

■ A ' 7 ' 

X C 3 ) s CL  AM  l «•  0 ' 3 

- 

A 6 

rn-117 
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11. 192 


f 


» tmi 

CALL  OUTPUT(K) 
return 

T 40.4  IB  ■ . _ . ...  - 

o : o 4:<5<’ 
o o?4ioo 

16 

O'O  4110 
0 V 0 4 1 ? 0 

TN»  TN 

1^(H.GT,3)  GO  TO  2,;  __ 

U C 0 C 4 1 3 u 

O ’ 0 " 4 1 4 (J 

D<3  18  I « 1.3 

*¥<  P • X<  P . 

o:o  4i.5 
0 0 I 4 1 6 f' 

ie 

jQN< I > * XD(  I ) 
CONTINUE 

0 •:  0 ' 417  j 
O'  004  ISO 

CAU.  EOTnX 
CALL  OUTPUT(X) 

O'  6 ^ 4 19  0 
0" 0*4200 

20 

RBTURN 

l r ( <Z • N£ . 1 > GD  TO  35 

Ol  0 '4210 
U'0‘4220 

DO  25  iai»3 
X<  [)  > XN1(  I > 

0 0 4 2 3 o 
0 C 0 . 4 2 4 0 

M 0 ( I ) * XDNK  I) 

K‘N<  I ) B XNl(  I ) 
XnN< I ) a Xdn1< I) 
C0NT I NUg 

0 O'  4?5'J 

u o 4?6: 

25 

0 0 427: 

0 0.42PO 

35 

SO  TO  45 
X( I ) 3 XN<  P 

O'O *4290 
ll  O ’ 4 30  0 

45 

CONTINUE 

S5|l  = 0 C 0 S ( X N ( 2)  *cl3) 

o'  6.  4 3 1 o 
O'O  4320 

V0ODR  3 DSQRTt (XDN(1)/XN(1) ) * « 2 * 
VB3  a XN(;j  » V B 3 Dr 

XDN(?)*X0N(2)  + <SN1*XDN(3>  )**2)  0 0 4.55C 

0 : 0 .4540 

BiTA  * DataN2<  Xon<3)»SU  . ^ D N < 2 3 ) 
C0S9E T s DCOS ( 3E T A ) 

O' 0.4  35-' 
O'O '436: 

S I N3E  T s DSlNOcTA) 
COSQAM  s XDN  t l)  / V30 

0 * 0 l 4 3 7 ; 
0 0'43fi [j 

SIVGam  = 5nTN(?>  /(V3TTD»  » CDSHTT) 

0 0 4 3 9 !! 

02  s B(M)*SI'9g^v1*C(M}*cOSGaM  o 0 '.'  4 4 o J 


PQP(m)  = (-6(m)»:0SGaM*C(M)*SINGAM)*6.'!.  do 
RTDP(M)  = <-V2»CDS0ET-4<H)*SINBET)*6O.  IDO 
RLDP(M)  = (-V2*5INRET*A(M)»COSBET)*60.uDj 
k5(1)  = X D N 1 1 ) ♦ pDP(M) 

X D ( 2 ) * XOWT)  “TTd'PTTSTTxTI  ( l > 

RATN  = X'JC).  q C 3 S ( X N ( c; ) * C 1 3 ) 

X D ( 3 > 3 *DN<3>  ♦ RLDpPO/RATN 


CA.L  EOTnX 
C Awl.  CONVEH 
CAwL  OUTPUT ( K ) 
RETURN 
end 


O'O  4 4 « •' 
O'D’AAo'1 
O'O  4?  >' 
0 ■ 0 45  3 ■ 

0 0 45? 


w 


IdLQfll  .01..  m-05-76  i a . j9  j 

BUgRgUTj  jF> 

DOJBLE  PRECISION  HP , H2P , SK3 , Hb . PR , SKI , SK2 , CD . ST 
BOJBlE  PRECISION  TS , T , H, V , RSL , PZ. XvZ 
COHMdN7T"S/T.H.  XYZ.RSL.PZ 
yP»  . 3Q48D*  *H 

y?Psui(57  ( i . oDuT?/  ."6356  ^ 66  0*77'' 

IF<Hd-5..jD4)_2  .25,25 

20  IPfHP-4. 7D4)2l/29.29 

21  IF(HB-2.5D4>22.3  ,30 

22  IFIHP-1 . 1D4 )23, 3l,Ti 

23  iF(HP)^S,2d,32 

2?*  ~ TF  ( ^p"-t.-7T54 j 3T.7T.T5 

26  IFtHp-9-  04)34,34,27 

27  [ F ( H P - j.  • 5r)5)  ?5, 35.‘2® 

28  PZ=0.0DC  _ 

6l*0 .0^0 

62s  0 . ODC 

* 'fl3**0.m0*~  

RETURN 

29  fi«3=.  120R69D-3  

kjB  = 4 .704 

RB=2. 80040-6 
SO  Tj  37 

3C  SKI* . 13846 6 D- 4 ~ 

SK2*1 . 13683D1 
PB*7  . 7650-5 
yB32.504 
SO  TT  36 

31  SK3= .157689D-3 

yB  = i.i0'4  

RB*7.062 J-4 
SO  To  37 

32  SKls-O. 2255690-4 
6K2=-5. 256120* 

P3*2 . 37692D-3 

yBsO  , ODT  • *•- ’ 

SO  To  36 

33  6K1s-0. 1592*20-4 
6K2=-7. 592180 
PB*1. 394680-6 
yB*5.3'i4 

60  To  '<6  " 

34  SK3= . 2 162340-3 
HB  * 7 . 904 

PB  *4 .11690-6 
SO  To  37 

35  6Kls. 2414580-4 

SK2««.T4i2fi:  ' " 

PB  *4 . 26 1 0-9 

U B 1 9 . 00  4 

36  CD*1.00*'«-SK1*<  H23-HB) 

S T * - ( 1 . ■*  r*S<2) 


Oi 0O4530 
o ,004540 

O.'O  ?4  55  0 
0 "0.14560 
0 .U 14570 

0 ' u j 4 5 8 n 

0 0 ■ ■ 4 5 9 0 
0 ‘U  ’4600 
0 0 4610 
U . 0 *4620 
0 ‘ U •.  4 b 3 0 
UPC  4 6 4 Q 
0'0j4650 
0"0  ’466o 
0'  0.4670 
0.  OJ'4680 
(I  0.469  0 
0 0 " 4 70  0 

0 '0*4710 
0.04720 

o ; o .4730 

0 . 0 4 740 
O:  U j 4 7 > 0 
u : 0 * 4 ; 6 j 
0 0 U . 4 7 7 0 
O: 0*4780 
O'.  0.'4  790 
O; 0.4800 
0:0:431 J 
0:0'4320 
0u0:4330 
00004340 
u:004350 
o:o?4360 
0.004370 
000^4560 
0 . 0 r 4 O 9 n 
O-n-4900 
OOP '491 0 
rrc  4J2Q 
P'O .4930 
n (i',494G 
0;  0 ? 4 9 5 0 
0 004960 
u , 0 .4970 
0 I)  ) 4 9 fi  0 
n 0 ’49° j 
o 0:5^00 

U 0 0 ‘5010 
n-  p "•  5 ? 2 0 
u u:5P3e 
O'O  5 "40 


ni-119 


. _ tZ*  _PB*1CD«*SU 

■ETURN 

17  >7aP3«nExP(-S*<3»(H2P>HB)  ) 

mp 


00005050 
000050*0 
. 0000507 0_ 
01035080 
. _Q  iLO  v_5jD  9 0_ 


36b  A T 01  Ul -C  5-76  13..495 

SUORqUT I )£  0 <TRJT<K) 

PO  J0lE  PRECISION  CC 

D0J8lE  PRECISION  ARRAY. S_Cl,SC2,TJLHlXV2.RSU.fPZ.Rf'|.P.O 
PO J8lE  PRECISION  X.XD.XDn 

D0J8lE  PRECISION  ARRAYl 

CO  'MON'TS/T  . H,  XYZ  .RSl.PZ 

C0v'MpN/PAFAk1/6RRAY(2o),MAX1  ,RA>f2,SCl,Sc2.ARRAYl(?r  ) 
CONmon^BS/x ( 3 ) » X0(3 ) . xnD(3  ) 

RATA  CC/j7,?<»577J513.'8;:3?  376790155/ 

Ar:,AV(1)  = T 
aRRAy(?)sX(1, 

A R ? A Y (,1  ) a X(?)»CC 
ARRAY ( a ) a X<  ?)*CC 
ARRA Y ( 6 ) sH 
ARRAv<6)=XYZ/  .602 
ARRAY(7)sPSL 
ARRAv ( P ) aPZ 
AR’AYCJjsXPd)/  .6^2 

array<17)  = xD(2)«:c/o.6;i2 
A R R A y ( 1 1 )=Xr(  3 ) * C C / . 6 •'>  2 
ARRAV(l?)sx01(  1)/  ,360a 
Ar,AY  ( 1 3 ) = X,OD<  i)  *CC/.  .7604 
ARRAYC  4)=XU0(3)»CC/  . 7 6 P 4 
CA.L  SAVE  ( D 
RETURN 
EN7 


0 J 5 1 tj 
0 0 511' 
U 0 51?1 
I! . (J 5 1 3 
0 . 0 ■ 5 1 4 o 
n r-5).50 
0 u 0 C 5 1 6 U 
(1.0  r->i7c 
O' 0'5lP0 
<)  0 ' *H  9 0 
0 r U .5  2 0 0 
O'.  0 5210 
O'  0.5220 
I'.IO  5230 
C 0.5240 
0 Of  5 25  0 
0 ' 0 r 5 2 * 0 

0 .'0.527c 
O'  0.5280 
0 ‘ 0 ^29C 
0 .0'-53nc 
no  5310 
0 0 15520 
P‘0  5330 
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■ - -- 


IU3R1UTI  jg  SAVE  (\) 

0 0 0 0 5 3 6 0 

FOJBlF  PWFCTTm  SRRTY,  SC17SCZ7ARR  aYI 
eO"M5M/PARAM/A^RAY(2J),HAXl,MAX2,Srl.Sc2,ARRAYl<2t') 

bcou9^7o 

OCO 05380 

3 

I F7N  j 2 < 3 . i 

BAU»  0 

QO0O539O 

00005400 

HA*2.  ’1 

• E-MmD  3 

(J U o 5 4 1 0 
00005420 

■e-JI\T3  4 
RETURN 

OCOT5430 

00005440 

I 

WRIT?  r3)  ARRAY 
HAXIsMAXi*! 

U vur^45u 

0;0u546g 

2 

■ IST'JFN 

xRITc  (4)  ARRAY 

azo^arr- 

00005480 

K*X2»mA X2+i 
RETURN 

000'- 5490 
00005500 

|SD 

0 v 0 u 551 0 

6?11T  il  Ql-(ft-7o 


i .573 


l 

i« 

1002 

5 

lotto 

3 

6 

1003 

7 

1001 

4 

? 

8 

1008 

1004 

9 

lr05 

10 


SiHR3Ut  1 It  PRi  NT?(  M> 

t)0J3l£  RREClSID'i  APRAV.Scl.Sf;2,  aRRaVI 
C0Mm0-J/5W1/<2 
C3?H0N/4X/Tm.  -1 

C0'tMlNVpiR4H/A^4Y(2  ,),  -|4x1,MaX2,SC1,Sc2,ARH4Y1<2  ) 

OTJRLP  PRECrSIOVTF 
I F < N ) 2 > 1 . 1 
P P •’*  I ')  D 3 
I f _ a o s 

ro  3 ibi,haxi 

I F ( I FL  AG . ME ,0)30  T n 5 
PRINT  1.  .J  ? 

PO->HAT  ( l-'l,  ;'X  . 4Rt  I , 7X  , 6HWA0  I'js  , t?X.  bMLAT  ITUDF  . 7x  . 9HL0NGI  ruDt, 
11  ?v,  AH’-tEtr.HT,  1 l<,3HVEL'iCITV.OX,i?HR(StA  lPVEl  ) , 3 X , 7 HDE'lS  ! T Y , // ) 

tc'uA"  = ^2 

READ  (3)  ARRAV 

print  !0  • , ( AR  ray ( J ) , Jsl , 3) 

r0RMAT(lX.F8-4>lX»ri7.13>?X»Pl4.7».?X»Dl6.9i2X»Pl‘>.9, 


t 6 j 7 'I 

J , *>530 
:l  i ,'?1. 
J ■ 0 "?55iJ 
’> 0 'S  56  j 
TC  *657n 
3 ' O ‘ ">  5a  3 
j i b"°: 
3 J 6T0 
0 • 0 5610 
n • o 6 b 2 o 

0 • ;l  '‘547li 
iJ3U  'CA40 

030-  0650 
O'U  6663 
0 C (• . 567  0 
U 3 '56R0 
pr0'5693 


o 2 X • 3 1 7 . 1 , 1 X , 
1617. 10. 2x, 1)14.  7) 
IP.ArsIPLAtl-l 


0 3 0 '6692 
O o 5 7 n o 
0 j " 5 7 1 C 


RE 'I  NO  3 
I p - a r s ■ 1 

rn  4 T — 1 » FT  AX  1 
I p { KL4G.flE.:!  ) 33  T 0 7 
PRINT  to  X 

FO  ?MaT  <1-U,2X,  4NTIMF  , 9y  , S HR -DOT  . 1 3 x- . 3H|_  A T , - DO  T , 6 x . 9HLO  NG  . - DOT  , 
113*  , 9HP-00T  OOT  , 9X,  1?M!.aT  .-DPT  DO  T , 8X  , 1 3HL3N3  , - 3 3 T POT,//) 

I P u A 3 s 6 2 

PF  AD  (3)  aRRaV 

PRINT  I.,.  1 , aRRAT  ( • ) , 1 A -'RAV  ( J)  , J=9  , ] 4 ) 

r0RMATfPP.4,2A,Ji6.9.4Yfri3.6.4X,Ci3.6,4X,m6t9.4X,D16.7,4X,ni6 
1 4 X . 3 1 6 . 7 ) 

IPLA3=IP|.Ar,-l 

R F T 11 A N 
rFnInD  4 


O ■ O '6720 
o '.0:5730 
TO  “57^0 
TO  6 76J 
o: 0 '5760 
o : o ■;  5 7 7 o 
O'.  0 ‘5  780 
0 0 v 5 79' 

u: O'  6 30 2 
TO  5 61  0 
.7.3,'  j ~ 5 5 7 0 
o : o : 5 ? 3 o 
0 : 005 640 
0 ) 6653 

TO  6860 


I p w A - * 1 

D3  in  'si. MAX? 

I P c I r L \ G . IN  b . .)  j 3 TQ  9 

PRINT  13  8, SCI. 532 

r 37M  \ T C 1 .1. , 5tX  , 16HREMS  :R-L  AT  I MUE  . P 9 . 5 . 6 X , 1 3 m . 0 NT,  I TUDb  ( U ) , 
IF!  ' .5 , /) 
print  : - 4 


:j  .1  6 870 
n J -.5663 
L O'  6 5 Q 0 
o o - 6 } o 
' ! t.*  ‘ 5 910 
n 3 59?? 
0 . 0 5 9 3 J 


FORM  A T ' 2 < . PUT J li ( m jM ) , X , 16MSLANT  RANGE (FT ).3X,?1hSl  RANGE  RATEtPTi'.O  5y4? 
1/SEC).  lX. 25HSl.  RANGE  R'3T(FT/,y";i3/Sr-C).3X»12PA218JTM(PE5),3x,  o t 895' 

21 6 4 A 7 RATP(i)t  i/SSC)  ) TO  SV60 

IP^A0s''>2  j 0 ‘ 6 9 7 3 

RFaD  (4)  aRR4y  o f’  898r 

P R I N T l 5,iaRRaY(j).js1*o)  11.0599:.' 

POJMATfP  ’..4.  3?'  . 12.  ”21 . 12.  I1P4 . 1?,  6X  , [116 , 9 , 4X  , T > . 5 ) 3 0 TOO 

I P . A 0 = l P I A 0 - 1 J ..  J 6 •?  1 U 

R P J I \ D 4 0 " 0 ' 6 0 2 2 


! 


in-123 


1211 T $1  ..Jl-06-76. 


?,573__ 


jr^Ar,*-1  00006030 

BO  U 1»i*m*x2  OGTOG604Q 

If ( If  LAG ,NE . O) 33  TO  13  00006050 

12  RR  In7  1C  '6  00  016060 

10  06  rO*MAT<im,2X. >HTIME(MIN),2X.20HAZ  ROOT < DEG/SEC/SEC ), 3X , 14HEIEVAT I 0G006Q70 
TflflTTJ  P G T", TJT, 16 HTT"R1  TF HTETS 75FC 3 ,3X,2"ffEC  R00TlDEG/SEC7nSEC) , 2*71 3RRF0D  07151101 


2INTRy  aNGLE>6x*7-|hEADING) 
!rLA'5»52 

13  Re4D  <4mRRAV 

IRINt  10u7,ARR4V( !) , f aRRaYCJ), 


1007 

tr 

1010 


r orhat (f a . 4, 

If g = rr^AG” i 
RRlNT  101’’ 
rO=7MATC53X,i3-l-\D  Dr  OUTPUT) 
RETURN 

gsn 


J = 7 . t 2 ) 


3l9.a>7x#ni6.7,5X«Dl6.7,D23,12i4X»Dl2.6»4XiDi2.6) 


0000*090 
OG 006100 
0C006110 
00006120 
0 C 0 06 130 
0G00  6'i<lT' 
or  006150 
00006160 
0^006170 
00006180 


BUBRaUTl  lE  CONVEX 

DOJBlE  PRECISI ON  CS,SS,XS,YS,ZS»SRS.DSpS,RS,RSD.XNUM1,XNUM2,X!nUM3 
DOJB^E  PRECISION  COST.l'OSl.SINT.SINL.EX,  Y.Z.EXD.  VD.Zn.XDP,  YqP.ZDP 
COJBlE  PRECISION  Tv,0PI.Ef*r>PE0.9K?.9K3,f3l<<>,*K,j2.N3,M|<t.^5(FT,FT2 
DQJ9LE  PRECISION  XNUm,Xmum.S1k.R9,s2i<,s3k,s1*2.s2k2.DPS.P.R6»w7 
DOJBi.E  PRECISION  XNLM  . EO  . S I G . W 1 4 . 4 1 5 , s I GD  , RSDD  . S I GDQ . E I'D 
DQJBlE  PRECISION  ARRAY, SCI. SC2,T,H,XYZ.RSL#PZ»R'N.P.0 
DOJB^E  PRECISION  X.XD.XDD 
DOUBLE  PRECISION  AH.ACTASl,  ACTaG?.  ACTaq3 
DQJBlE  PRECISION  El.El'WElOD 
DQJBlE  precision  TN.STN.TM 
DQJBlE  PRECISION  aRRaYL 

DOJBlE  PRECISION  PI.MAlEPI.TIHAPI.aRSIN.COSLT, GNJM.3DEM.3ETa.GAM 
DQJBlE  PRECISION  AH.XPUM.VPRIME.QNJM2.C0SB 
DOUBLE  precision  elim 
COHhON/cOELZE- I M 
common  ism 

COMMON /PaRam/aRRaY(2.,), MAX  l.MAxZ.S-l.ScZ.APRVt’ 1(2  ) 

C0MMON/TS/T.h.XYZ.RSl»PZ 

COMMON/BS/X(  3)  .XD{  3)  .Xi'D(  3) 

gOMMONX AX/Tm  , M 

COMmON/S^i/rZ 

common/co-iv/ar 

COMhONXJOnZ IK. J< 

C03T=D00S(X(2) ) 

COSL*DCOS(X(3) ) 

EF»57-?9s7-’95i3  9 232. ,8  76796 155 
E * J , o D 1 

rE'3»?092564  . J 

e»K2s3  . 57^6  19220-3 

B< 3s 5, 98 73*929 D- 6 

eKRs1.76  515570-3 

AK  *0 . 01745329 25 199  4 32r'5769Z 37 

P!  * 3.  141592653539793238462643400 

WAlPpI  = P'72. Oq 

TIRADI  = 1.5d  »pj 

TWOPI  = 7.  DO  ® p I 
S I NTsDS  I 'i  ( x ( 2)  ) 

Si NlsdSIn(X<3)  ) 

£X  = X ( 1 ) *cQST*c3SL 

y =-«<i  )*c.ost*;iml 

Z - X ( 1 ) » S I N T 

E X 0 sXD(l)  *CD5T»CDSL-X(i)*xP(2)  <»SI'IT«CCSL-X(1)  9XD(3)*C0ST»SINL 
yd  =-xO(l)»C0ST»SlML*X(  l)«xU(2)*5l'!T*SlNL-X(l)*xr’(3)»C0ST.CQSL 
ZD  sXD(l)*Sl NT*X(i)*XD{?)*CCST 

XD3s(X0D{1 >-X( 1 )»( XD(2 ! *XD( 2 > )-X ( 1 )»( X0( 3 )»XD(3 ) > )®C0St«C03l 

1 - ( 2 . 'D  *XDt 1 ) * X D ( 2 5 ♦ X t ’)»xDD(2) )*SINT«COSL 

2 -(2.  D *XD(l)*xD(3)®X(i)*xOJ(3) )*COJT»sINl 

3 ♦ 2 . ; 0 i>x(l)»XD(2)<X,'<x)«SlNT»s!NL 

YDp*-<XD'J<i  ) - X ( i ) * ( Xp  < * ) « X i ( 2 ) ) - X ( i )®(X'JC3  ) • X □ ( 3 J ) >®C0RT»5livt 

1 *(2.  D ®XD(  1 ) « X D ( 2 ) ♦ X ( 1 ) ® X .0  D ( 2 ) )«SINT«SINL 

2 -(  X ( i ) *XDD(  3)  ♦?.  • J *XD(  1 )«Xi)(3))«C0ST*C0SL 


0 ‘I  619' 
n j 6200 

n J .6210 
0 0622. 
0 '0  '6230 
O'  0 6 2 4 J 

r 0 6 25  J 

ij  . 'J  6 260 
0 . 0 6270 
0 (1'6  28j 

a o,629: 

<j  ■ 0 " 6 3 (J  0 
0 r'  6310 
I]  0 6 32  0 
00  6330 
u . o 654 ; 
n -n:^35i 
0 0 ’ o 3 6 0 

0 I)  . 6 $7  r 

0 : 0 .6330 
0.0  6390 

0 0.64  (j  J 

o 0'64i: 
O' J ? 6 4 2 1 

0 * 0 " 6 4 3 .0 

1 j ' C •>  6 4 4 _ 
0 06450 
0 : 0 ' 6 4 6 J 
0 ' 1 6 4 7 

n n ‘ 6 4 a j 

0.0  649** 
OH)  6500 
n r o 6 510 
01 J 6520 
0. J *6530 
0 ' 0 ' 6 5 4 ) 
O'  0 6556 
0.0656 
0*  '0  *6  570 
0 0 *65?0 
0 * 0 " 6 5 9 0 
U - 0 6 60  0 
C *0  ‘‘•61O 
0 . 0 * 6 6 2 J 
C * 0 ' 6 6 3 
' 1 0 6 6 4 j 

010  665' 
0 ! (J  * 6 6 6 

0 : 0 ' 6 5 7 c 
0 ■'  6 s 3 ~ 
0.0  669* 

0*0.67  r, : 


in-125 


3 *2.  JDO*X< 1)»XD(2)*XD(3)»S!NT*cOSL 

IBp«(XDD(1>-X(1’)*XD(2)»xD(2)5»S1NT 
1 *<2.'jDu*XD<l)»XD(2)*X(l)*xnD(2)  )*CoST 

B2»D5lN(Sci*4K) 

3 ■ DCOs  ( l5Cl«AK  > 

|4*DS I N ( SC2»AK ) 

S5»DC0!5(SC2*AK) 

rr«(i.oD'j-F)*»2 

fT2*t2.0D"'*f)-r*»2 

BS»REQ/<3SQRT(l.jDu-FT2*W2**2>) 

8S*(cS»ft)4,ah 

ISa(CS*AR)«W3*45 

TS» ! CS*AR  ) °W3»44 

I8*S3*w2 

BRS*nSTRT(XS»*2+XS««2+ZS»*2) 

DS3Sa0 • onn 

Sl<s-t(EX-XS)*^2*w5*(Y-YS)«w2*w4-(2-ZS)*w3) 

B*«SC2*A* 

82<=X(U«C0ST*0SIM<X(3)*W9) 

83<c(eX-XS)*W3»W5*(Y-YS)*W3*U4+(Z-ZS)#W2 

BX<2*S1K**2 

g2<2»S2K*«2 

g3<2sS3K»*2 

RSa0<5GRT<SlK2*32<2*s3K2) 

SSns(EXD«(EX-X3)*YD*(Y-YS)*ZD«(Z-ZS)>/RS 

«NJHis( ( EX^XS ) «X5 ) /RS 

|NJM2s( ( V-YS).X3)/RS 

«AiJM3®(  { Z-ZS  ) *ZS  ) XRS 

KMJMz  ( XNiJM1*XN.M2  + XNUM3)/SRS 

*MJMa(  XNlJMl*X!XJrt2*XNUM3)  *RS 

BPS*nS^RT(SlK2*S2K2) 

ACTAq1=  OPS/S3K 
B*3AtAN2  <OPS. s3K ) 

1 F < M . E Q . 3 ) GO  TO  30 
1F(T  .Lt  .TN)  GO  TO  2 0 j 

lFcE.IT.  . Do. ANO.ELIM.LT. 9 '.rO  )G0  TO  200 
TF(E,lE. <EL!m0a<> ) GO  TO  47 
GQ  T0  2o  i 

30  IF(E.LE, <ELIM»A<) ) GO  TO  4 
GO  TO  ?0>) 

40  ! F f I SW • NE • T)  GO  TO  47 

TN  = T 
IS*  = 1 

47  * TWOPI/4,  0 -E 

45  16B0srJ(6) 

BZaDCOS(E) 

*i)uM3XS*5Xr)*Y3»VO*ZSttZO 

EQa(  -RS*xNLM*xHj'1*PSn)/(SRS*f  RS»*2)*0SIN(E  + DSPS)  ) 
ELOe-EO 

6S  ACT  AG2  a S2K/S1K 
S!3aOATA  J2  ( S 2K  , 5 IK  ) 

IF'S!G-GE..!.000>  GO  TO  9 


0 ' 0 n 6 7 1 0 
0 0 0 C 6 7 2 0 

0000*233 

00006740 
0 ' 006750 
000^6760 
00006770 
0 ' 0 06  78  0 
0 r 006790 
0 " 0 C 6 3 0 0 
00006310 
0 0006320 
0 000*6830 
00006340 
00006350 
00006860 
0C0C6370 
00006380 
00006890 
00006900 
00006910 
0006920 
0:006930 
000  '6940 
00006950 
00006960 
J ''O'  6970 
O'.  O' 6 98  0 
0 0’  0 C 6 9 9 o 
030C7000 
0 ' 0 0 7 C 1 0 
00007020 
0 : 0 0 7 G 3 0 
0 ' 0 ' 7 0 4 0 
0 00  7 0 5 o 

0 0 7 0 6 0 
000  7062 
00007364 
O'  0 n 7 0 7 0 
0 ' 0 ' "7  0 R l' 
n: O'  7 C 9 0 
o : o . 7 i o o 

0C0‘7110 
0 007120 
0 th  7l30 
0 0 : 7 1 4 3 
0 . 0 '71^0 
0?O  7x60 
0 : 0 7X70 
0‘ 007x80 
OOOC719C 

o : c '7 200 
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813*51 G+TWOP 1 

0 ’0*7210 

90 

Nl4*0SlN(SIG) 

C 0 722C 

Sil5sriC3S(S!G) 

0 0 7230 

ir(DABs(^14)  .G=.I.GD-1'3.  AfJO.We.QT,  j.oa  j)r,0 

to  105 

0 ■ 0'.'  7 24  0 

100 

g tGoio . on  • 

0 : 0 725u 

GO  TO  U , 

0 . U ' 726:l 

10S  £ I 3d  =<EXD*W2*H5  ♦ YD*h2«R4-Zli*N3  ♦ < RSD*W6*RS*El)»W7  ) *W15 ) 

o:  O '727-J 

1/  { ^S»w6»w]_4  ) 

0 . 0 7^Pi 

110 

*P JMl= C X3/SRS ) .( XDP/RS) 

0*0*7290 

XPJM2= ( YS/SRS ) . ( YDP/RS ) 

0 ? 0 0 7 3 0 0 

*pjmj  = <Zs/srs>»<zdp/'rs> 

U10.-7310 

XPJM  = (XPiJMl*XPJM2  + XPl)M3)/(  OSIN(E  + DSPS)  ) 

0 -*007320 

BS3D=(((EX-XS),X0P+(Y-YS)*YDPt-(Z-ZS)*ZDP) 

U * 0 7330 

1 ♦(ExD*ExD*YD»YD*ZfJ»ZD-RSD»RSD)  )/RS 

O’O  '734H 

£BP  = _XpU«(*(  (X^Jm/dSIN<E  + DSpS)  )*(RSoD/RS>  )- 

(En»ED»(ncoS<E*D3pS) 

000*7350 

1 ✓DSIN<E*D5P3) >)-(2.  0 «FD*(RSD/RS) ) 

0 0-  7 36 J 

EUDD  = -ED') 

0 * 0 7 3 7 1’ 

JF<DABSUl4).3;.l.  D-16-ANn.W6*GT.j.ODj)GO 

TO  10  8 

0 0*7360 

61300  = 0 • JD 

0 * 0 ,7390 

60  To  10? 

0,0  7 400 

108 

Sl3D0=<xDP,>W2<-45*Y0P*i,'2*K4-znp*W3-2.3Dj«RSD*W6*W14*3IGn 

D * 0.7410 

1 -2.  'D  *RS»«|7*wl  A*ED*S  IGD-2. 00J*RS*W6*wl5*S  IGD«S  IGD 

0.0*7420 

2 ♦2..-D'i*RS0*47*wl5cEn*RS0D*W6*wl5*RS*EDD*W7*W15)/(RSoW6*Wl4) 

0. 007430 

109 

S I 3D=  SIOD»EE 

u 0 7 4 40 

EL=£l*ET 

CO  7 45 r- 

EUD=ELR«EE/  .602 

0 0 7461 

EUDD=EUDn*fcF/  .3604 

O*0'747, 

8 t 3 = 5 I G»PE 

n O'  7490 

5I3D0=SI0DD*EE 

0 o 749^ 

A 8 R A y ( l)aT 

0 0 7500 

*RRAy ( 2)  = RS 

0 *0  . ?5m 

A A Y f 3 ) = PSD/  .602 
aRPaY(4)3RSoo/0.3604 

u *0*7520 

0.0  75.30 

ARRAY(5)=SIG 

0*0.754- 

A R ? A Y ( 6) iSIGO/O. 6D2 

U 0 755o 

ARR Ay { 7 ) =S I GDIV  .3604 

n ; o * 7 5 6 ; 

aRRay(3)sEL 

0 0 '757,* 

aRPay(?)=eld 

0*0'  75F  (■ 

ARR  A Y < 1.  i 1 =GLDD 

o*0:759o 

C 

CALCULATION  0-'  HEADING  ANGLE (CLOcKW I RE  0 

TO  2PI  ) 

00*760" 

COSlT  r XP(  3)  °305T/XD(  ;■) 

0 7 0 76j  ; 

IF  (XD(2) ) 1,2,3 

U 0 76**: 

C 

zero  xd<2> 

0*0‘ 7673 

2 ir  <rOSLT>  4,5,6 

U 1 764* 

C 

NEGATIVE  COSLT 

O'  ‘ 7 6 c " 

**  BETA  = TIHAPI 

0 “ ij  7 66  ■ 

GO  TO  6o 

0 0 7 5 7 0 

C 

ZERO  COSLT 

0 1)  7 661 

5 BETa  = l.‘T)l*Pl 

C ' 0 765 

GO  TO  60 

0 0 7 70 

c 

POSITIVE  COSLT 

0 0 7710 

o beta  s Mali  pi 

0 0 117. 

IH-I27 


10  To  60 

C UEQA'Ive  XD ( 2 > 

1 IF  (COSlT)  ’.8,9 
C NE(SATtVE  OR  POSITIVE  COSlT 

9 86 T a,  ■ Pi  « OaTa^(cOSLT) 

80  To  60 

C ‘ ' ZERO  COSlT 

* 8ET*  » PI 

80  To  60 

C POSITIVE  XD ( 2 ) 

3 K ( cos«- T > 10. 11.12 

C NEGATIVE  COSlT 

10  8BTA  * TROPI  * DaTaMCOSiT) 

BO  13  60 

C ZERO  C09LT 

11  B8r*  * O.OUDO 
13  To  60 

C POSITIVE  COSlT 

12  fiE’A  s DataN(C3S-T  ) 

C CAuCUUA’ION  0'  RE/ENTRY  ANGLE<CLOcKHISE  0 T9  2pI) 

6 0 * X ( i ) • XD  ( 2 ) 

E353  * DCOS  < 3E T * ) 

IDE"  * X0(1)»C3S9 
T f C a-'g  “ > 13.14,15 
C ZERO  3D5M 

1«  IF  (8NUM)  16, 17.18 
C *E3at!Vf  GNJh 

16  ft  a s i v * * i hap i 

To  62 

C ZE9 o ’N jh 

17  »B$1l  « 1.  D 1 • » I 
63  TO  62 

C POSIT  I Vg  ,'4J* 

1»  »«3lv  * RAWFI»I 
63  To  AJ 

C x£a*Tiw=  G06«t 

13  IF  tONJM)  19,29,1? 

c negati.c  positive  gnum 

1?  aC'aGI  i .N.jH/3d5m 

A^S'N  3 e;»TArAV(ACTA"i3) 

63  To  02 

C : = »-*  ONJM 

20  a85 I v 3 P I 
63  TO  62 

C P0$lT!v5  UOE* 

1>  IF  (tNjO,  21,22,23 

c negative  gnjh 

21  A 3 T A G 3 < riNJH'GOEM 

A PS  I T^OP  I . DATAN( APXAG3) 

60  TO  62 

C ZER1  GN JM 

22  A RS I m 3 i , 'DO 


0U007730 
01007740 
0 : 0 1 7 7 5 o 
07017760 
IK  007770 
0^007780 
00007790 
000r7800 
00017610 
00007820 
07007830 
OC 007840 
00007850 
00007860 
0000787C 
UC007880 
0C0C7890 
0 0007900 
00007910 
00017920 
00007930 
00007940 
00007950 
000^7960 
000C797q 
0 ■’00798C 
07007990 
00008000 
00008010 
00008020 
0 C 0 C 8 0 3 C 
00008040 
OCO 06050 
0 0 0 0 8 0 6 C 
00008070 
0 0 0 ' 8 C 8 0 
00008090 
OOOlRiOO 
00003110 
0^0 . 8120 
0 '008130 
o: 008140 

00008150 
o ; n ; 3i6o 
00003170 
0 0 0 J 8 1 8 1 
00008190 
000 -8200 
000  in2io 
0.0  8220 
o : o h 2 3 o 
o:o"8240 


m-i28 


CO  T ;)  62 

C POSITIVE  GNJM 

23  A0T4G3  = GNJM'GDEM 

ARSIN  = DaTANI 40TAG3) 
SO  TO  62 
62  S AM  * 4RG  j N 

G 4 ^ = ga  <*gr 
AaPAV(ll)  = 3A8 
6ErA  = B6TA»6f 
ABRAy { 12  > = 9E  T A 

Ir(«z.Ne. i)  go  to  5<n 

JFH.EQ.l)  GO  TO  19  ■ 
GO  TO  64C 

540  JF(m.EQ.3)  GO  TO  19 j 
6 4 U CONTINUE 

W9ItE(G7)  aRRa* 
j 0 TO  19-i 

190  WRIT?  (02>  ABRAy 
193  CAuL.  SAVE  (-1) 

200  BE  TURN 
EmD 


U (.  3 250 

0 0 826  j 

»'rt'627l 
o : u 3 ? 8 o 
o;u : 329 c 
o?n : 8300 
0'u;e3i' 
o 0 " 8 3 2 i 
00  8330 

i) : u ' a 3 4 o 
U' 0 • 8 3 5 1 
0 0 3360 
00. 837' 
0 ' 0 i'fl  Jfli 

n CCe39u 
0 0340 0 
0 : 0 ' 3 4 1 0 
n : o 8 4?  o 
U ''O’' 3 4.3: 
0 i b 844,3 
0 0 1 3 4 S .. 


in-129 


6 829 T III  Ol-MrlA. U-^218 


SU3R3UTI gE  R*G< TO) 

?D JBlE  PRECISION  c.e.tj.  atb.  deg, ijxn.dxdx.dl,  sad  table,  baker 
DOJBlE  PRECISION  X.XD.XDD 
BOJBlE  PRECISIJN  p.q 
e i ^ e m s i o m cm,  "(A),  d ( a ) , a(J),B(3) 

PJW  / STS  7~  X T7TT7TTTT}  TXTTDTTJ 

COMMON  /ST/  »(?),  0(3) 

BAtA  C/C.5D0.  .292893210Blir7U7iO67Bl,  .1666666667/ 

BATA  D/0 .500, . 2928932108, 1 . 7071 T 6 781, 0 . 500/ 
data  P/2.AD0,1.  0 ’ ,1'.0D0;2. 'D  V 
|P*57. 295779513  3 2 32 U 8 76 7 98 l 55 

PtfTT~J*T74 

eA_^  E0T\X 
BO  ID  1*1,3 
A ( I ) s X 0 ( I ) 

B( 1 )sX50(  I ) 

CXT  *( A( ! ),F( J) «3( I ) ) «C( J) 

utdx  ttrtTE  Ef"Ji  E ptm  rctj) — 

DL*T3«0X J 

X ( I ) *x  ( I )*DL 

*D( I >*XD( I )*T3»DXDX 

3(iUQf!  1*3.0®3»DXN-9(J)#A  ( I ) 

10  PCI )=PC I )»3.003»0XnX-D( 

BATr?(3T-6l^l35T:T717950647f9?52B7 

I P ( SAD  ) 12,11,11 
11  « f 3 ) z SaD 

12  B E T (j  p t\ 

Ev: 


00008460 

OOOC8470 

0C0 08480 
00008490 
00008500 
"'aotnrB^nr- 
00008520 
00008530 
00008540 
0C0CB550 
00008560 
' 0DDDB-577J"- 

00008580 
00008590 
00000600 
00008610 
00008620 
'“OTrOD8'630  " 
00008640 
00008650 
00008660 
00008670 
00008680 
’ UC  U08~69'0 
00008700 
00008710 
00008720 
0 GOO  8 730 


nnnann 


$856T  oi  Ql~C4-76 


1 .313 


C 

C 

c 

c 


SUBROUTINE  I'JPJTT 
C3MmON/SW1/<Z 
CO'’MnN/AX/TM.MT 

eO^HClN71c/CA.9  = T4,GAM#MX.r,LAM,HE.r,UAHI  , THgl 

common'ic^/vo,  inertl 

e3  -imon'  i c3/tm  ; 

*/PARaM/aHRaY(?3),  vt  A X 1 , HA  X 2 . SCI . Sc2  . aRR  A Y 1 < 2 0 ) 

CO,'lM')N/T.(S/T,-f.  <YZ<RSL<P7 
COmmON/PTijRR/A  ( 2 ) ,R<  ?•’ ) ,C(  2 ) 

COmmON/CONV/aU 
CO -HON/NTRaJ/  MM 
C03M3N/E.-JATMO/Z<<,(<aT 
COmmOn/cOv/U,  j< 

COHmOM/gOEL/c.  I 'I 

DO J8l£  PRECISION  T** , CA  , BET  A , BA*  , Mx 
PO  JBlE  PRECIS!  ON  TMI 
DOUBLE  PRECISION  A.  B,'~ 

DOJBlE  PRECISION  SC  1 , Sr2 . aH 
*. ARRAY . A <Rayi 

feOJ3;.E  PRECISION  T , H , XYZ , PSL  , P7 
DOJBLE  PRECISION  Z « 

t)0  J8_E  PRECISION  Gl.AM, THE, GLAMl  ,THEI 
DO J9UE  PRECISION  NO 
' DOJftLE  PRECISION  ELIM.EEL  I H 
I<  = > 

J<  = 10 

A.'ANElIST/IUI/TN,  tyi 
NA'1ELIST/IIN2/CA,3ETA,GAM,H/ 

NAM  = L I ST/ I N3/ < Z 
RA^ELI,ST/T*|A/p.1h 
*/I  o/VO.  INERTl 
fJARELlST/lNft/ZN.  <AT 

RAT  : 1 CALL  ATi-tOSPHpRE 
RAT  : " SET  ATMOSPHERIC  DENSITY  r U 
MA^UIST/IM7/a,R,C.HM 

MM  S©-fAo  3 SI  Vf.  S MO'IIMAL  Tty£JECTORr 

MM  S R E A T t R Ha\  3 G1VFS  n-j  perTuRrED  TRAJECTORIES 

HA-'E_  i st/ r ms/3  :i.  sc?,  am 

M ,ElI3T/In9/S_<*M,tme.GLAMI  , ThEI 

ISLAM  s LAUNCH  L'ONo  I T'jnE  » » A N D * * THE  = LAUNCH  LATITUDE 
!►'  DEGREES 

r, LA'II  s IMPACT  LONGITUDE  TREI  8 IMPACT  LATITUDE 

Ih|  DECREES 

FOR  30JTH  LATITUDES  USE  a NEGATIVE  TH=  OR  Tpcj 
SE''S  1R  LD’JiITJDE  MEASURED  REST  OF  gREE>ICH,  ALL  OTHER 
L 0 i G I T ' I ; j E 5 »3c  MR  A SURE©  NEST  DF  GREENWICH 

READ  ( 5 , I li  ) 

1**0 
J«  = 3 

R E“ D ( S . I ;?> 

R E A D < *i . ! IN  3 ) 

RE  AO ( 5 • I J4) 


O'u  8/4  0 
OOn'A7SO 
Oil);  <3760 
UC008770 
!K  0 ft  7 8 0 
?"  V't>  790 
0 . 3 : ft  3 0 0 
j 0 C 3 s i j 
0..0  ,8s20 
000  a 330 
J ? 0 N 8 3 A 
0 C 0 : » 5 5 3 
QCU'&ftpO 
0 C 0 ft  3 7 0 
0.0  8 38J 
0'0'ft8<53 

o : o : ? o o 
0 : 0 3910 
0*0 .8970 

o : c : ft  9 3 o 
o .■  o r 0 9 4 o 
o:0':3953 
0 : 0 .8960 
OCO'ft97S 
0 : 0 . p 9 8 0 
C '008990 
0 0 9000 

om',ono 
o .’  0 ' 9 0 ? 0 
0 0 0 ■ ■ 9 0 3 C 
0 : 0 o 9 0 4 c 
o ;■  u o 9 o s o 

0 rO ' 9 0 6 0 
n-o~°j7C 
0 ,0  • 9 0«0 
0" OC9C90 
u P ' 9 1 0 0 
0 ' UL’ 9 1 1. 0 
0 J 91?. 

o: o'9i?o 
o : p ' ? L 4 o 
OCO'oiSO 
o n i j.6  0 
o:o:n7Q 
n 0 ' 9 1 8 o 

II J 0 1 9 1 9 0 

o ; o c 9 2 o o 

003 092nS 
0 . 0*9206 

o ’ o : 9 2 1 o 
OCOC 9?20 
0*n*9?3C 


m-131 


1 


4056 T U1  01-06-76  1 .313 


0gAO<5,  I 5 > 

■ E4D(5.  I«j6) 

•6*D(5. IN?) 

■ EAD(9*  M8| 

• E AO  ( 5 . I N9  ) 

iF^':^*‘_9’T7njr-E-iM 

UR  I Tf  < 6 , 5 ) 

SRITC(6,lf')  TMiTMT' 
fc  R I T E < 6 * 2 •"  I CA>H* 
KRITC(4,3^)  BETA 
URITe<6-4O)GAM.V0*INERTl 
-ffR-fT=(6,5,n  T* 

I T E ( 6 . 53 ) KAT 

writer,  14't  <Z 
WRITE<6>94) 

UR ITE ( 6 > 95 ) HH 
y R I T? ( 6 , 6° ) 


00009240 

OCOO’290 
0 0 0 1-1 9 2 6 0 
00009270 
000C928Q 
“"00UC979D 
00009300 
00009310 

0000932o 

OCOC933o 

00009340 

~0tnj091513" 

00009360 

00009370 

OCOG9380 

OC00939o 

00009400 
“00  0 09  41 0 
00009420 
oror9430 

o:oj94*o 

0C009450 

0C0C9460 

'0r009«70~ 

00009480 

OCO"q490 


WRITE(6,80)  U<MN>.B(fJN).C(NN>#NN»ll20>  00009420 

KR I T£( 6 , 9fv)  0000  9 430 

UR  I Te< * . ihq ) OOO J944q 

URtTP(6,ll(jygCl,  SC?,AH  OC009450 

WRITe(6.120)G_A4.ThE  OC  0 0946  0 

tfRTTCtTJTTTrf  THTTITTWET * - -0C00947O 

URITP(6,150)  E i L I M 00009480 

5 90R*UTC1H1,55X,  "fJP’jTS")  ~ - OCO"°490 

10  P0RHATtlM"r34H  MAXIMUM  Rijn  TIME  (FORWARD)  TM  = i Dl 6 . 8 . 4HM I N , . 5x , 300 0 09500 
*7H  TUT-RFF  Time  1 8ACKW  aRDS)  TmT  a-#  016 , 8 , "H  t N . n f 00009510 

20  FORMaT^H  ',2iH  SURFACE  RANGE  CA  = .Di6.8,8H  DEGREES  * 5X , ^64  ALT  I TU0C0095?0 

— *fr€-  «x "s Tors .5.3^' ■petrj “ 0001:9530 

30  F0*MaT<1H'',6iJH  4 1 SS I lE  HEADING  ANGt  E MEASURED  Cl°CKWIS£  FROm  NORTH00009540 

* ?ETA  = , D 1 6 . 3 > 3H  DEGREES!  " ' 00009550 

40  F0RMaT(i-|-,22H  REENTRY  ANGLE  GAM  . ,D25,8,8H  DEGREES , SX , 24H  I N I T I 0 0 0 l 9560 

•IL  VELOCITY  VO  * .025.18, 7H-FT/MIN#  -■  ’ 00009570 

*/50X."lNERTL  = " » I 3 * 5 X > 000.9572 

- — */65X,«IF— V6LOctTY*»r  0''0,'9574 

* / 6 3 X , " I F INERT.  =i,  INITIAL  VELOCITY  IS  INERTIAL  VELOCITY")  00  0 v9576 

50  rORMATIi-R  , 2X  . 5 R ZK  * .D25.18.36H  fT«?/SLUGS  , BALLISTIC  COEFF I Cl  00009580 

• ENT)  O0O',959O 

53  FORMAT (jM  ,7r  rat  r . 1 2~.  I'- X , 55M  NO  ATMOSPHERE  SET  KAT  * 0 T FOR  AT030C9600 


►MOSPmERE  SET  RAT 


OCOC9610 


-54  - FORMA  T-Uir~,55TT'rW  CS5«— Of— NO- A^HO^PgewfT-j-THOSPgEPlC- DENSITY  PZ  00009620 
« * 0 > 00009630 

55  FORMAT (IN”, 6H  44  s ,14)  00009640 

60  FORMaTCIM'  ,43X,  3 .1 H PERTURBED  VELOCITY  COMPONENTS)  00009650 

70  F0R«aT(1H  , 4X , 3 H PERTUP&sTION  TO  LEFT  * FT /SEC , 9X , 32H  PgRTURBATI 00009660 

•on  backwards  - ft/sec. 9x, 3 -h  perturbation  upwards  - ft/sec)  oco:967o 

80  ra-RMAT  (yH— r7xFtT25'.  i&TxNxrrr75riSi  i-TXTrr75'.T8-) D000968o 

90  F0RMaT<1H-,39X,41H  SENSOR’S  COORDINATES  IN  DEGREES  aND  FEET)  0COC9690 

-100  FORmaTUH  ,T')X7r3H  GEGDETic  [XT  t T UDEyIEXv  38  H [ 0 M3 1 T UftE  , WEST  of  GRO''0097oo 

oBENWICH  4ERini4\i,8X,?5H  ALTITUDE  ABOVE  SEA-LEVEL>  00009710 

110  FORMATti  r-,  7x,  3(025. 18, 15X)  ) — - 0C0P9720 


in-132 


6B56T  HI  01-:a-7fi  lx. 313 

120  F0*HAT<l.p,2i'n  _4JNCH  LONGITUDE  * 

.8) 

130  EO^NaT  < 1U  . , 2 J H HPaCT  L-ONG  I TljUE  = 

•8) 

140  C?*«AT ( lHQ  , 1 KZ  r ,JS) 

i5o  h^matct-t  ■yw.jm.O'BEST  etevatih 
setjpn 

BN"1 


,D23.ia,5x,12w  LATITUDE  * ,u25.1'j:  0 -9730 

o . o : g 7 a o 

.025.is,t>x,i2^  latitude  * ,d?5. iorec97*o 

0 :■  C ■ 9 7 6 0 
0:G  .9770 

itdlE listed  out  a ,di2.4)  o:o  ?7"0 

n • e ' 9 7 90 
O''1'  9^0  0 


in- 133 


FISSILE  HEADING  AN3LE  MEASURED  CLOCKWISE  FROM  NORTH  BETA  • U.27B00000D  03  DEGREES 


IMPACT  LONGITUDE  = Q . 600 000 00 00 000 10 OOOD  02  LATITUDE  « -0 . 400000000 0 OOQOO OOOD  02 


Sample  Output  for  the  Cobra  Talon  Trajectory  Program 


III- 136 


■ > n ca  o i 


I o ci  o u t j o o o <r»  «. 


. o o c-  *->  '> 


• c-  r go 


n D D D 

O O Ql  O 
O O C3  O 


<3  <3  O G 
IT  IT  IT  ITt 
CM  CM  CM  CM 
OOOO 
0 0 0*0 
CM  CM  CM  CM 


CD  <D  CO  CD  (D  CO  CO 

a o q o o o o 

Q o ol  O Q O a 

o o c<  o a o o 
o o cj  o a o a 


a o < 


loaoo 


O -O  0|  o g <o  -o 
id  to  ir,  id  id  id  id, 
CM  CM  CM  CM  CM  CM  CM 
O O O O'  O'  O'  O 
a o o o a o c» 
CM  CM  CM  CM  CM  CM  CM 


O cl 
o cq 
o O 
O Q 
9 -r 
■o  -o 
ID  IfJ 
CM  CM 
o o 


O o 

o o 

O Q 
O Ol 

M M 

-o  o 

If.  ID 
CM  ex’ 
O O 
O o> 
CM  CM 


o o 

o a 
o a 


o o 
id  ir 

CM  CM 

o o 

o o 

CM  CM 


o o .cr. 

00(0 
o oj  o 
o o o 
•«r  x x 
■O  o 
ir>  tf'.  it 
CM  CM  CM 

o o» 

O O;  o 

CM  CM.CM 


O O 

O O 

o o 

O O 
^ 9 
■o  ®i 
IT*  IT 
CM  CM 

a o 
o o 

CM  CM 


Ci  O O .C. 
o o o o 
o o o o 

o o o o 
M V 9 "V 
ODOM) 
ID  lf>  tO  If 
CM  CM  CM  <M 
OOOO 

c o o o 

CM  CM  CM  CM 


o a 
o o 
o o 
o o 

•*  M 

o o 

if  to 
CM  CM 
O O 

O O 

CM  CM 


o a c c. 

O O o o 
O O o o 

Q O O O 

o o o o 

to  If  . to  ID 
CM  CM  CM  CM 
o o o o 
O O o o 
CM  CM  CM  CM 


ooo 

o o o 
o o o 

o o o 
« 

o o o 

U ID  ID 
CM  CM  CM 
OOO 
o o o 
CM  CM  CM 


c a c. 

o o o 
o o o 

Q QO 

v 

O O O 
ID  ID  ID 
CM  CM  CM 
0-0  0 
COO 
CM  CM  CM 


C C C Ci 

O O O O 

o o o o 

a o o o 

9 9 9 9 

o o o o 

If  ID  If . ID 
CM  CM  CM  CM 
OOO 
OOCDO 
CM  CM  CM  CM 


r.  c.  c g c c. 

O O O O O o 
o o o o o o 
o o o o o o 

9 9 9 9 9 9 

o o o o o o 

ID  ID.  ID  ID  ID  ID 
CM  CM  CM  CM  CM  CM 
o o o o o o 

o o o o c o 

CM  CM  CM  CM  CM  CM 


O'  O ( 


0 0 0.0 
CM  CM  O CM 
r>  n d o 
M QO  > s 
K)  ID  <3  ID 


:: 


o n o a ocjoooooo'o  o o o o c 


>00000  c-  oooo-o  o c c o r o n o 1 


1 ID.  ID  IDIID  ID  ID  ID. 

> -d  o oj  r:  t o d 


ID  If*  ID 

o -3  o 


. O ID  H 
M’  ID  O' 


« rl  HCM 

OB  K -o  id 
oirtn 
0000 


0(0  00  0.0 

CM  a 0O  CO  M 
Off"  ex  9 o-  CM 
OO  CM  KJ  -O 

roo  »-*  o x 

OOCMD  KJ  ID 
D<S  ro  OB  N 
Ml  IO  K»  KJ  CM  CM 
04  ri  00  or  n- 
O*  O O ID  ID  ID 


0(0000 
t « o 

oj  000  D 

CM  M O M 
IDO)  CM  K*  KJ 
elao  O M CM 
ao  o foh.  ro 
CM  CM  KJ  K)  M 
O'  ID  M K)  CM 
ID.  ID  ID  ID  ID 


CM  CO  O 
O CO  ID 
ro  a cm 
O ID*  O 
CM  K) 
O COt  CO 
ID  ID*  -O 

»-*  ao> 

ID  ID 


ID  ID  ID  ID  ID  ID  (< 

o o o|  o 

o.  o 0.0  o o 

(Mt  O ao  CM  -V 
O CM  O 00  flO 
ID  00  r*  CM  O O 

r-.  o oa> 'id 

CM  M O ao  <0  CM 
o w-i  Mr  o id  r*3 
D*  O a rH  ro  tD 
CO  ^ o ID 


(HrfHHHHrfHi 


OOOOOOOOOOOO 
C.  ' 9 9 O 00  CD  -O  CM  M CM  9 CO 
CMOOCM«0)K>r0«O  M CM 
r-i  K)  ID  f"  O CM  P'  V MO  rH  .H 
rttlAt  K N'  O CM  CM  G 00  9 
O CD  a ID  K)  K)  r-  ro  cm  -*  co  *0 
Hriwino  M O®  N rv  (t  H 
D'O  HfO  ID  CO  rH  K)  O O CM  O 
rOCMCM*HOOOCOr'-«0»D 
MK)K)K)K5K)K)K) 


1 ID  ID  ID  ID  ID  ID  tDlDlDlDlDlDlDlDlDID 

o o o o o.  ~ o -r  0 r r>  0 —j  o o 0 

CiOOOOOOOOOOOOOOO 
cj  o cm  « m .3  o n m ot  y c t rvj 

CM  <i  r o O O M O CC  C3  o OCE  r-  o K3 

rHK)OMO  M5  000  CM  -*aorv  ID  CM  <0 

OK>r^OK)D-  M r(  OCMN  M IDO 

O C 4)  O (C  K)  CM  Wffl  O h O K)  O 

id  »-*  r-  id  id  r C3  or-'-oiD'.  ok) 

O K)  >0  OV®  CM  T-l  -O  G*lD  ou*  o« 
^T'»K)K)CM*-«*-«0000'CCCDr‘r^M5 
K)K>rOK)K)K)  roCOKJCMCMCMCMCMCMCM 


o-ooo  q o o o aoaoooaooooooooooooooooooooc  ooo* 


.00  0000000000 


a a a 

O O ID 
Offl  N 
O O M 
o CM  H 
0«  rl 
O HID 

o 00 
OO  H 

t»rr 


QOQQC 
O ID  OD  O'  C 
tn  *OM  M ' 
CO  ao  o -o  i> 
OO  M ^ 
ID  CO  HDC 
Oh  N®  . 
CD  D CM®  1 
KJO*  M « 
O K 


O Q O 
CM  ro  CM 
M HO 
KIO  CM 


QQQ 
CO  CO  »-c 
M -O  CO 


I ■»  0»M 

■IP'  ID  M- 
CO  CM  ID 
3 ID  *-♦  M3 


too®  >H 


P'  o o 
<3  *-* 

O O 


QUQQ 
O CD  C3CO 

CO  O r-4  CO 
cm  o ro 
® n ao 

« an 

O ®h  M 
<3  *-i  <3  y-i 
»-4  CM  CM  K) 


h (Vi  rl 
M ID  O' 

■O  O CO 

r>  M) 
Hh  CM 
<3  o ID 

ro  • 
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Plots  from  the  Sample  Output  {for  the  first  trajectory) 
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D.  Nodal  Crossing  Prediction  Program 

1 . Introduction 

The  Nodal  Crossing  Prediction  Program  predicts  the  equatorial 
crossings  of  an  earth-orbiting  satellite.  Two  to  three  weeks  prior  to  a 
satellite  observation,  the  computer  program  can  provide  a listing  of  the 
predicted  times  and  longitudes  of  equatorial  crossings  for  all  passes  suit- 
able for  observation  by  a given  radar  system.  The  program  outputs  can 
be  used  to  determine  radar  acquisition  and  tracking  data  and  are  used  as 
inputs  for  the  Orbit  Prediction  Program.  Orbital  element  inputs  for  the 
Nodal  Crossing  Prediction  Program  can  be  obtained  from  the  SPACETRACK 
orbital  element  set.  For  further  information,  refer  to  "Nodal  Crossing 
Prediction  Program",  by  John  C.  Cleary  and  Paul  E.  Brown,  1st  Lt.  , 
Technical  Memorandum  No.  EMA-TM-66-9,  March  1967. 

2.  Computer  Program  Operating  Environment 

a.  Computer 
Honeywell  6180. 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c . Memory  Requirement 
1 7K  words 

d.  Typical  Processing  Time  Required 
0.001  hrs.  (3.6  seconds) 

e . Peripheral  Equipment  Requirement 
No  disc  or  tape  files  required. 

f.  Non-system  Subroutines  Required 
CLEAR 
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3.  Inputs 


The  following  set  of  input  parameters  are  required  for  the 
execution  of  the  Nodal  Crossing  Prediction  Program. 

NAMELIST  INI 


NCASE  - Number  of  cases  to  be  run. 

NAMELIST  IN 2 

HED  - Array  containing  the  heading  for  the  output.  The  di- 
mension of  HED  is  24. 

NAMELIST  IN 3 

NTYPE  - Switch  for  selecting  orbital  elements  type  to  be  input. 
= 1 SPACETRACK  or  Smithsonian  elements  used  as  inputs. 

~2  NASA  elements. 

NREVO  - First  revolution  of  satellite  to  be  examined  for  visi- 
bility from  radar.  The  revolutions  are  counted  from  epoch 
time  of  the  SPACETRACK  bulletin. 

NREV1  - Last  revolution  of  satellite  to  be  examined  for  visi- 
bility from  radar. 

NAMELIST  IN4 

BGT  - Epoch  time  of  nodal  crossing  bulletin  in  decimal  days. 
BGT  = 39125-T  where  39125  is  January  1,  1966  in  Julian  Days 
and  T is  the  epoch  time. 

XMO  - Mean  anomaly  in  degrees. 

RAO  - Right  ascension  of  ascending  node  in  degrees. 

OMEGAO  _ Argument  of  perigee  (degrees). 

E - Orbit  eccentricity. 

A - Mean  motion  (revolutions /day). 

NAMELIST  IN 5 

B - Rate  of  change  of  A (revolutions /day^). 

RA  1 - Rate  of  change  of  RAO  (degrees /day). 

OMEGA  1 - Rate  of  change  of  OMEGAO  (degrees /day ). 

GHAO  - Greenwich  hour  angle  of  Aries  at  midnight,  30  Decem- 
ber of  the  previous  year. 
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NAMELIST  IN6 


ZLAM1  - Longitude  of  northbound  nodal  crossings  that  will  give 
a Zenith  pass  at  the  radar  (degrees). 

ZLAM2  - Longitude  of  southbound  nodal  crossings  that  will 
give  a Zenith  pass  at  the  radar  (degrees). 

DLAMDA  - Longitude  interval  of  nodal  crossings  that  will  give 
usable  passes  at  the  radar  (degrees). 

CHR  - Difference  between  local  time  and  Greenwich  time. 

= 4.  0 EDT 
= 5.  0 EST 

4.  Output 

Output  from  the  Nodal  Crossing  Prediction  Program  first  con- 
sists of  a list  of  the  input  parameters.  This  is  followed  by  a listing  of  the 
nodal  crossing  data  in  the  following  form: 


Variable  Name 

Units 

Description 

HED 

None 

Heading  for  output  as  input. 

BGT 

Decimal  Days 

Epoch  time  of  nodal  crossing 
bulletin. 

NREVO,  NR E V 1 

None 

Pass  number.  Indicates  the 
first  through  last  revolution 
of  the  satellite  to  be  examined 
for  visibility  from  the  radar. 

ZLAM1 

Degrees 

Longitude  of  northbound  nodal 
crossings  that  will  give  a 
Zenith  pass  at  the  radar. 

ZLAM2 

Degrees 

Longitude  of  southbound 
nodal  crossings  that  will 
give  a Zenith  pass  at  the 
radar . 

DLAMDA 

Degrees 

Longitude  interval  of  nodal 
crossings  that  will  give 
usable  passes  at  the  radar. 

NDAY 

Days 

Day  of  year  of  nodal  crossing. 

NHR 

Hours 

Hour  of  day  of  nodal  crossing. 

MIN 

Minutes 

Minute  of  hour  of  nodal 
crossing. 

NSEC 

Seconds 

Second  of  minute  of  nodal 

crossing. 


Variable  Name 


Units 


PLAMDA 


Description 

Degrees  Longitude  of  nodal  crossing. 


The  printout  produced  from  the  variables  HED  through 
DLAMDA  above  serves  as  a heading  for  each  page  of  nodal  crossing  data 
printed  out.  The  nodal  crossing  times  and  longitude  (variables  NDAY 
through  PLAMDA)  are  printed  out  in  the  order  of  ascending  times  on  each 
page.  Refer  to  the  sample  output. 


f 
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IDEMT  CLEARY , U EUFFER  >65121  1 04RADC 
US EH I D CLEARY STHREE 
L 3 '/LOAD 

3PTI9U  F 3. IT  RAM 
SELECT  CLEARY /0U0DAL 
SELECT  CLEARY/ 3 CL EAR 
EXECUTE 

LIMITS  20, 20K,  , 1 OK 
DATA  05 


$i:j  1 

UCASE=1  S 
5IU2 

HER(4)  = 34:i  MODAL  CR333IUG  HR  ED  I CTI  3)1  PROGRAM, 
liEDI  14)  =47:i2ATELLITE  UG.  040  - SPACLT RACX  - 


SI 


3 


N7YPE=1, 

U RE’/ 0 = 75, 

URF VI =460  S 
% I ! 4 

RGT=1  15. 0-3902403, 
RRO  = 20  3 • 7513, 

RAO =2 34. 2451, 
a::EOAC=  1 55.7564, 
E=C. 057039  1, 


A= 12. 7677 1653  S 


SI  15 

E = 0 . 25574 1 E-0 3, 
RA1 =-3. 46557, 
0MEC5A1*3. 31952, 
GHA0=99 .210  5 
SIMS 

R L AM  1 = 1 34.2, 
ZLAM2=  19 1.9, 
DLAMDA=  50 .0, 
CHR-4 . 0 5 

ERDJ  05 


3L  T.  1 . 


34  si  T 


Sample  Job  Stream  for  the  Nodal  Crossing  Prediction  Program 
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Source  Listing  of  the  Nodal  Crossing  Prediction  Program 
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oooonoo  00000000000 


^ -_r 


NODAL  CROSSING  PREDICTION  PROGRAM 

DIMENSION  TOI100!)),NDAY(1  0 ) # NHR  <1000  > . M I N (1000  > , NSEC  < 10' 0 ) , 

1 XL AMD AC lOOt > , PLAMDA { 1 " 00 > # MED< 24 > 

•OMMON  Tu.NDAY»NHR.MIN,NSEC.XlAMDA,PLAMDA,HED»RAO,PI ,ntype»nrevo, 

1 NREV1.X.3GT.E,  OMEGA  ■ . OMEGAl , XMD  , p , ()ELP  # A , 3 , C , GH  A<< , QMaI  . R AO 

2 Ra1,ZlAM1,ZlAm2.PN,C0SW.S1NW.TERM,C0SPH,SINPH.PHIP, DLAMDA, 

3 XmP.TeRM1.NPASS.REV, J, I .DAY, HOUR, YM IN, SEC# NP AGE. I PAGE# 

4 JSTART. JEND.NCOL. JC1. JC2# JC3. JC4,CHR,CDAY 

DQJBlE  PRECIS  I ON  GHA1 , HGT , XMO . RAO . OMEGaO , E , A , B . RA1 , 0MESA1 , QHAO , P. 
1 PN.TERM.TpRHl.DELP.C.XMP.PI ,RaD#DS3RT 

DATA  BLANKER  t 

ramelISt/ini/ndase 

■4MElIST/IN2/H=D 

S»MElIST/In3/NTYPE,NREV^,NREV1 

NAMElIST/In4/03T,XMO,RaO,OMEGAO.E, a 

NAMElIST/In5/B.RA1.0MEGA1,GHA 

IUMElIST/In6/Z.AM1,ZLAM2#DLAMDA.CHR 

|BAD<05, INI) 

00  51  N«l»NCASE 
2 BALL  CLEARcTO.DDAY) 

DO  ’9  I si » 24 
HID( I ) *Bl ANK 
?9  CONTINUE 

• t * 3.1415926535 
•AD  s .0174532925 
(MAI  * 360.9856473 

(EADC05, IN2.END=51> 

•BADC05, IN3) 


NAME- 1ST  - I N3 

MTYPE  s 1 - SPACETRACK  OR  SMITHSONIAN  ELEMENTS 
(TYPg  s 2 - NASA  ELEMENTS 

■ REVO  = r I RST  REVOLUTION  OK  SATELLITE  TO  BE  EXAMINED  F JR 
iisimiTY  from  radar 

nrevi  = last  revolution  of  Satellite  to  he  examined  for 
(IsirILity  krom  rada* 

IE  AD  I 05 , I M4  ) 


NAME. 1ST  - IN4 

BBT  s EPOCH  TIME  OF  NODAL  CROSSING  BULLETIN  IN  DECIMAL  DAYS 
|M0  s MEAN  ANOMA.Y  IN  DEGREES 

RAO  r RIGHT  ASCENSION  OF  ASCENDING  NODE  IN  DEGREES 


0 0 " 1 0 0 0 
u:o  ioio 

OCQO1020 
oco:  1030 
or  o ci o 4 o 
, or0''i05o 
OCOC106O 
0rt0'1070 
0 D 0 j 1 0 8 0 
o:u.i090 

oooonoo 

ooocnio 

0I“0C11?C 

000:1130 

000  1140 
00001150 
0 . 0011' 0 
o jU”n7o 
00001180 
U00C1190 
0C0C12D0 
O'-of'izio 
00  0 Cl  220 
0:0r1230 
oro'1240 
O''o:i25o 
0C001260 
00001270 
0. 0 '1280 
0C0C1290 
0t0C1300 
OCO  .1310 
0'001320 
0:-0C1330 
0.0C1340 
OC  091350 
OCO 01360 
OC  0H370 
O'O 01380 
O'O  1390 
0:001400 
OC  0 '1410 
OCOi.1420 
0-  001430 
0:0:1440 

OC  0 ■'  1 4 5 0 
0 ’ 0 1 146  0 
00001470 
UOO'1480 
0C0‘ 1490 

0:0^1500 

000 '1510 
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. - 


OOOOOCIOOOOOCI  OOOOOOCIOOO  Cl  Cl  no 


IME6A0  s argument  OF  PERIGEE  IN  degrees 
I ■ ECCENTRICITY 

* ■ MEAN  MOITIDN  IN  REVOLUTIONS'DAY 

• 1*0(05, I N 5 ) 


NAIElIST  - IN5 


REVOUUTlONS/<OAV.SQUA«En) 
IN  DEGrEES/DAY 


B ■ RATE  or  CHANGE  or  A IN 
• Al  ■ RATE  Or  ORANGE  Or  R A 
bhegaI  « Rate  of  change  omegao  in  oegrees/d a v 
•MAO  c GREENMlOH  hour  ANGLE  or  ARIES  AT 

MIDNIGHT,  3u  DEcEMrER  OE  PREVIOUS  YEaR 

•IAOC05. IN6> 


NAME. 1ST  - I N6 

llAMl  * longitjde  or  NORTHBOUND  CROSSING 

THAT  MILL  GIVE  A ZENITH  PASS  AT  THE  RADAR 
XL  AM2  3 LONGITJOE  or  SOUTHBOUND  CROSSING 

THAT  MILL  GIVE  A ZENITH  PASS  At  THE  RADAR 

DLaHoa  = longitjde  Interval  or  crossings 

that  mu.  gjve  useable  paSseS  at  RadaR 

•MR  = DIFFERENCE  3ETMEEN  LOCAL  AND  GREENMJCH  TIME 


12, 5X, 'TqTaL  NUMBER  3F  CASES  TO  BE  RUN') 


.12) 


mm 

G C 0 * 1 5 4 0 
0C0  1550 
U00' 1560 
0C0 01570 

o:o*i5ao 

OCOr1590 

0:0:1600 
0*001610 
OOOH620 
OC  0C1630 
00001640 
00001650 
0C001660 
0*001670 
00001660 
0 0 O'1 1690 
o:ori70o 
0 " 0 ' 1 7 1 0 
00001720 
0 C 0 '*  1 7 3 0 
0*001740 
00001750 
00001760 
00011770 
OC 001780 
0r0' 1790 
000*1300 
OC 001310 
0:0:1820 
00001930 
00001340 
0:001850 
0 C 0 C 1 8 6 0 

o:ooi97o 
300:i880 
000C1890 
00001900 
0 . 0-  1910 


BBITe(^6.9j01) 

9001  rQRMAT(lHlf49x, ' - INPUTS  -') 

|F(N.GT.i)  GO  TO  "9 
|BlTc(  )6.9or  2)  NCASE 

9002  F0RMaT(///<)X,  ' NCASE  i 
•0  To  999 

990  BBITEt  ) 6 , 9 ij  u 3 ) N 
900J  rORMAT(//) OX. ' THIS  IS  RUM  NUMBER 
999  BBITE<  j6,9 »04)  ( RED ( I ) , t « 1 , 24 ) 

9004  fORMAT(///l9X.  'OJTPUT  HEADING  ( HE D > ' . /24 X , 12  A6  , /24 X , 1 2 A 6 ) 

BBITCI  06.9j;*5)  NTyPE.NREV  , NRE  VI . RgT  , XmO  . R AO  , OmEG  A .■ , E . A . A , 

•■AI.OMEGaI 

9005  rflRHAT(//l9X,  ' NTrPE  r • . I 5 , • , 1 -SP  A CE  TR  ACK  OR  SMITHSONIAN  ELEMENTS 0 0 0 * 1 920 

•1 */32X . ' s2-NA3A  ELEMENTS',  0 0*1930 

• V/19X.  ’NERV*'  S '.16.'  r I RST  REVOLUTION  Or  SATELLITE  FROM  EpOCH  T 1 MO ..  00194  0 

•e  or  the  spacetrack  bulletin',  0:001950 

•M/19*. 'nhevi  s ',16,’  last  revolution  or  SaTellIte  ^Rom  epoch  Tjmeo:o  i960 

• or  the  spacetrack  bulletin',  0:001970 

• /Z19x  . ' BGT  s ' , r 1 6 . 1 . ' RGTs39l25-T(39l25  IS  JJLlAN  DAYS  FOR  JAN  10':0*1980 

*916. T IS  THE  EPOCH  T I MF • » 0iKi99q 

•//19x . ' XHr  = '.r16.1v.'  mEaN  anomaly  In  DEGrPEs'.  0v0*'2000 

•//19X,'Ra  = ' , F16 . 1 . ' RIGHT  ASCENSION  Or  ASCENDING  NODE  IN  DEGREO. 0*2010 
«BS'.  0 0 '2020 

•//I9x, 'Omegao  * ',ri6.:*.'  argjement  or  perigee  in  degrees',  0.0:2030 
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•//19*.'  e = '.-I1  • ORblT  ECCENTRICITY*,  0-002040 

• 4/19*.'  4 .xO, • MEAN  MOTION  IN  REVOLT  I ONS/DA Y ' » 0 CO  02050 

•it  19*,'  9 i 1 . 1 • , 1 0 » • RATE  IN  CHANGE  OF  At,'  0'002060 

i9k,'  rai  * « * 8.10, * rate  of  Change  of  rao  in  degrees/Oay' , ooor2o7o 

•W*19X. 'OMEGai  t • ,Fi6.l3# 'RATE  OF  CHANGE  OF  OMEGA 0 IN  DEGREES/DaY  OCO  ;20?C 

OrO  -.2000 

IITe(06.9u*6)  3HAJ.ZLAM1.ZLAM2,DLaM0A,CHR  020*2100 

9008  rORMAT(/l9X, 'GAH  j * *•116.10.  irO"2liO 

• » GREENWICH  HO  JR  ANGLE  OF  aRIF.S  AT  NIGHT',  0^022123 

• J/l9x  • ' ZlAmI  * ' , F18 . 1 j , ’ LONGITUDE  OF  NORTHBOUND  NODAl  CROSSING*  • 0 00 1 213C 
•?/19x, 'ZLAM2  * *,Fl8.l:,*  LONGITUDE  OF  SOUTHBOUND  NODAL  CROSS ING? . 000l2T  40 
•rf/19*,  'DLAMDA  * ' , F 1 6 , 1 0 , ' LONGITUDE  INTERVAL  OF  NODAL  CROSSING',  OSO-..2irO 
•>219* . ' CHR  * Fi6.lt,'  DIFFERENCE  BETWEEN  LOCAL  TIME  AND  3REENWICUC002160 


^ - 

•u, 


• U TIME' . 

•rflHl) 

CBAY  « cHR/24.3 
•OSH  s COS  (OMEGA  *RAD ) 

•INW  * SIN  (OMEGA  *RAD) 

II  ■ IDVa 

IF ( NTYPE • Eq • 1 ) 30  TO  6 

• ■ a 
DEuP  s B 
YiRM  * lD^iE#*? 

YIRM  * TERM*DS3RT (TERM) 

YERMl  * E*COSW 
YBRMi  = (1Di'.*TERM1)*»2 

RN  * P*(1D  J-0MEGA1*P*TERM/(36;’D  *TeRM1>) 

IF  (NTYPE. EO.l)  30  TO  0 
C > DELP»P/2B03Q , 

?98o  * 2 * ( 1 4 4 3 MIN  IN  A DAY) 

•0  TO  10 

• « -B/A»*3 
(MO  s XM./36UD3 
CQSPh  3 (COSW4E>/(l.i*E*COSW> 

• INPh  = SIGN  (SORT  (l.'.-C0SPH*»2),slNW> 

IF( CoSpH ) 12  * 11 » 13 

U FHIP  3 PI-SIGN  <3I/2.P,SINPH) 

CO  T0  14 

12  CHIP  3 ATAN  tSIN»H/COSPH>*PI 
•0  TO  14 

13  PH  I P 3 ATAN  (SIN9H^C0SPH)*PI-S1GN  (PJ.SINPH) 

14  |M°  ■ (PHIP-E»SINPH)/(?D  *PI) 

TfiRM  r BGT*(iDO-XMj-XMP),PN 

15  »BRMi  * 36uD0~  Ra j*GHA  3 
«9ASS  3 NREV1-NREV0*1 
*|V  . NREVJ-1 

18  DO  1 S I s 1 « NP  AS  5 
RlV  s REv*i.j 

TO  ( I ) » TERM4REV»PN4-C*PEV»*2 
17  CLAMOA I I > = TERM1-RA1*(T  ( 1 >-B3T >*qHA1»T0<  I > 
•LAMDA(I)  s AM3D(XLAMDA( I) ,30l.r ) 

l“  continue 


10 
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or  002170 

0 w 0 "2< 3p 
00032190 
0 '0)2 200 
00002210 
o: 0 12220 

0003223'. 
00002240 
00002250 
Ur  Q?226  3 
000  1?270 
0u0.;22B0 
0 ‘ 0 32293 
00002303 
Ui0<)231  J 
03002320 
03002330 
00032340 
0 :or  2350 
030  12360 
0 J032J70 
03002380 
0.0323^0 
Or 032400 
03002410 
030J2420 
0 3 0 12430 
00032440 
00002450 
0 o 0 ' 2 4 6 0 
0)002470 
030"2480 
0 0 °2 49 0 
0 30.12500 
03032510 
Oj 002520 
00002530 
O ' 00254  0 
0)0  2550 


19  l)Q  2$  I «1»  NPASS  00012^0 

IHapS  IXUaMoaI  I J-ZUaMi)-dHMjja)21.21»20  “ ODOi'2580 

20  IPlABS  OtLAMDAU >-2LAM2)-DLAMDA)21,21,26  OGOj2590 

21  4 ■ j*l  0 0 0 '■  2 6 0 0 

•LAmOAIJ)  a XL*H0A<1)  00002610 

22  IwAY ( J)  ■ TO(I)-CDAY  00002620 

UY  . NDA^tJ)  030C2630 

• QJR  » I T ' I I J-0AY)«24,tl-CHR  " " ~ 00002640 

23  MR<j)»HOUR  00002650 

• MIN  * IHOtlR-f-OAT  INHRI J) ) )*60.0  00002660 

84  DtN(j)  « YMIN  000°2670 

• BC  ■ (YHIN-tLOaT  C M I N ( J) ) )*61.0  0 0 0u2680 

2»  BSEC(J)  • SEC*. 5 00002690 

26  IQ'JT ! NUE  ~ 00002700 

82 AGE  » ( J ♦ 9 9 ) / 1 'J ■ ■ 0C0  02710 

|R*GE  a 1 0 0 0 2 7 2 0 

27  IBITE  <6  ,1003><HED<  U.  I“l*24)  000C2730 

1003  rORMAT<lMl,23Xl2A6/24><i2A6//>  00012740 

•RITE  (6  ,1< 04)bGT,NREVj.NReV1,ZUAH1.2LAH2,PLAMDA  00002750 

1004  PaRMAT(19Xl2nE’0CH  TIME  tF9,5,5H  D A YS . 37x8HP ASS  NO.  14, 2H  - I4/1IX0C0C2760 

1 IjHlAmBDAZI  »F0. 3*22X1 "HLAHRDAZ2  «E8 , 3 * 20Xl4HDE.T A LAMBDA  «000'2770 

2 fa. 3 //3X3HDAY, 1X3HHR; .1X4HMIN, , 1X4HSEC. , 1X6HIAMBDA * 6X3HDAYOQ0127BO 

3 1X3HHR,  , VX4HMIN, .1X4HSEC. ,1X6HLAMBDA.6X3HDAY,1X3HHR,1X4HMIN.00002790 

* 1X4HSEC.»1X6HLAMRDA,6X3HDAY*1X3HHR;,1X4HMIM.  .1X4MS6C,  ,1X  nrn'1',ann 


2 fa. 3 //3X3HdAY,iX3HHR;,iX4HmIN.,iX4MSEC.»1X6HLAMBdA»6X3HdA 

3 1X3HHR.  , 1X4HMIN,  , 1X4HSEC.  , 1 X6HU AMBD A . 6X3HD A Y , 1 X3HHR , 1X4HM I N 

4 1X4HSEC. *1X6HLAMR0A,6X3HDAY*1X3HHR;,1X4HMIN. , 1X4HS6C,  . IX 

5 6HLAMBDA  ) 

1F(NS>AGE>28.28'29 
26  IBITE  <6  ,1,05 

1009  rORMATU3X34MN3  VISIBLE  PASSES  In  THIS  InTeRVaL  > 

29  J$TAqT  a 130«( IPAGE-1>*1 
jEND  1 MIN'  I JST  ART  *99 , J ) 

•COt  = ( jEND-J3TART»4)/4 

30  t)Q  32  Isl.NCOt 

•ei  a jSTaRT^J-i 

jC2  a mino  <j:i*ncol.j> 

UC3  a MIN?  <J32*NC0L,J> 

JC4  a MINU  (J:3*NC0L»J) 

31  >RITC  (6  *1j06)NDAY(JC1) *NHR( JCl J *MIN( JC1) .NS6C< JC1) . 

1 pLaMUA(  J31)  .N0AYUC2)  ,NHR<  JC2)  .MINI  JC2)  .NSECUC2)  . 

2 PLaM'ja<  JC2>.NDAY  <JC3>,  NHR<  JC3>.  MIN*  JC3 > * NSEC < JC3 > . 

3 PLaMDAI J33) ,NDAY( JC4)  ,NHR< JC4 ) . M I N I JC4 ) , NSEC ( JC4 ) , 

4 PL  AMO A ( JC4 ) 

1006  rQ9MATI/l6, 14.  U,  I4,f9.2,  l9,l4,l4,I4,F9.2,l9,l4.U,l4,f9.2,I9,l4. 
1 14.  I4.F9. 2 ) 

34  CONTINUE 

IPAGc  = I PAGE* 1 
If ( IpAGE-NPAGi)27.27.51 
51  CONTINUE 
5T0P 
END 
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subroutine  clear 

000r1009 

subrojtine 

to  Set  fortran  logaTiqns  to  zero 

00001010 

calling 

SEQUENCE  - CALL  ClEAR(X,V> 

00001020 

OCOOIO^O 

THE  RQPPQSt 

of  clear 

is 

TO  ZtRO  OUT  LOCATIONS  X 

through  y 

00001040 

CLEA* 

*AVg 

1,4 

0 ' 001050 

IDA 

2,1 

ADDRESS  of  x 

INTO 

A REGISTER 

UC 001060 

SBA 

3,1 

ADDRESS  OF  V 

00001070 

TPU 

ORDER 

Y IS  GREATER 

THAN 

X 

00001080 

LDXA 

2,1 

RESTORE  X4 

00001090 

A2 

IT2 

r , 4 

00001100 

EAX< 

1,4 

INCRE  X4 

00001110 

Al 

6HPx4 

3,1 

00001120 

TNC 

A2 

00001130 

tze 

A2 

00001140 

RETURN 

clear 

00001150 

ORDER 

1,0X4 

3,1 

REORDER 

00001160 

LOO 

-l.DU 

00001170 

ASQ 

Al 

CHANGE  Al  TO 

CHPH 

2.1 

00001180 

TRA 

A2 

0 n 0 0 1 1 9 0 

END 

00001200 
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NODAL  crossing  prediction  program 

SATELLITE  NO.  UA9  . SPACETRACK  . RlTN.  342  EDT 
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E. 


Orbit  Prediction  Program 


1.  Introduction 

The  Orbit  Prediction  Program  simulates  the  trajectory  of  an 
earth -orbiting  satellite  and  computes  the  radar  look  angles  for  the  satellite. 
The  satellite  trajectory  is  generated  from  the  SPACETRACK  orbital  ele- 
ments and  parameters  obtained  from  the  Nodal  Crossing  Prediction  Pro- 
gram. A description  of  the  Orbit  Prediction  Program  is  contained  in  the 
document:  "Nodal  Crossing  Prediction  Program",  Technical  Memorandum 
No.  EMA-TM-66  -9,  March  1967,  by  John  C.  Cleary  and  Paul  E.  Brown, 

1st  Lt. 

2.  Computer  Program  Operating  Environment 

a.  Computer 
Honeywell  6 180 

b.  Source  Language 
FORTRAN  Y under  GCOS. 

c.  Memory  Requirement 
32K  words 

d.  Typical  Processing  Time  Required 
0.005  hours  (18  seconds) 

e.  Peripheral  Equipment  Requirement 
Two  disc  files  (file  codes:  01,  02) 

f.  Non-system  Subroutines  Required 

OUT  1 

OUT2 

OUT3 

PARALX 

NEWT 


IH-181 


Inputs 


CLEAR 

OUT4 


3. 


The  following  set  of  input  parameters  is  required  for  execution 
of  the  Orbit  Prediction  Program: 

NAMELIST  INI 

HED  - Array  containing  the  heading  for  the  output  from  a pro- 
gram run.  The  dimension  of  HED  is  24. 

NAMELIST  IN 2 


NRUN  - Run  number  assigned  to  pass. 

NPRLX  - Used  in  original  version  of  program,  no  longer  valid. 
If  not  0,  a punched  paper  tape  for  parallex  correction  of  a 
transportable  station  would  be  produced. 

NDL  - Number  of  passes  to  be  computed.  First  the  on  time 
pass,  then  the  one  for  X +A  X , then  X - A X » X + Zi  X 
and  finally  X - 2 AX  . Normally  use  2. 

NOPT  - If  = 0,  Subroutine  OUT3  is  not  called.  If  = any  other 
number.  Subroutine  OUT3  is  called  to  print  out  the  satellite 
orbit  look  angles,  range,  azimuth,  elevation,  and  also  Subrou- 
tine OUT4  is  called  to  place  this  look  angle  data  on  a file  for 
latter  plotting. 

NDCH  - Program  division  check. 

NAMELIST  IN 3 


DAY  - Day  of  year,  nodal  crossing  time. 

THR  - Hour  of  day,  nodal  crossing  time. 

TMIN  - Minute  of  hour,  nodal  crossing  time. 

TSEC  - Second  of  minute,  nodal  crossing  time. 

AMDAO  - Longitude  of  nodal  crossing  (deg.  ). 

BGTO  - Eopch  time  of  nodal  crossing. 

DAMDA  - A X (-.5  degrees  is  2 min.  early  pass,  which  is 
normally  the  second  pass). 

DT  - The  interval  in  seconds  between  computations. 

CHR  - If  converting  GMT  to  EDT,  = 4.  0. 

If  converting  GMT  to  EST,  = 5.0. 
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NAMELIST  EN4 


WO  - Argument  of  perigee  (degrees). 

EO  - Orbit  eccentricity. 

ANCL  - Orbit  inclination  (degrees). 

ASMTH  - A,  mean  motion  in  revolutions /day. 

RA1  - Rate  of  change  of  right  ascending  node  (degrees /day). 

W1  - Rate  of  change  of  argument  of  perigee  (degrees /day). 

El  - Rate  of  change  of  eccentricity,  per  day. 

AO  - Semi-major  axis  of  orbit  in  earth  radii. 

A 1 - Rate  of  change  of  AO  in  earth  radii/day. 

NAMELIST  IN 5 

XLAT  - Latitude  of  radar  (degrees). 

XLONG  - Longitude  of  radar  (degrees). 

AD  - Radius  of  earth  at  radar  in  Km. 

AZTH  - Maximum  allowed  azimuth  deviation  of  beam  center 
from  satellite  position  (degrees). 

ALTH  - Maximum  allowed  elevation  deviation  of  beam  center 
from  satellite  position  (degrees). 

ALO  - Initial  elevation  angle  of  the  pass  (degrees). 

XLAT1  - Latitude  of  transportable  station  (degrees). 

XLONG1  - Longitude  of  transportable  station  (degrees). 

TDELAY  - Transmitter  time  delay,  used  to  compute  the  range 
mark  number.  This  is  a number  that  describes  the  setting  of  5 
switches  at  the  transmitter  to  get  a properly  timed  range  mark 
for  starting  the  pass. 

The  following  page  fpjg.  III-3)  represents  the  format  for  the 
six  card  element  set  from  SPACETRACK.  The  orbital  element  parameters 
used  in  this  program  (NAMELIST  IN4)  are  obtained  from  this  card  set.  The 
orbital  parameters  needed  in  the  program  can  also  be  obtained  from  the  two 
card  element  set  and  hand  calculation  of  required  parameters  missing  from 
the  set.  Fig-  III-4  illustrates  this  latest  format  for  the  SPACETRACK 
orbital  elements.  A punched  card  deck,  containing  the  two  card  element  set, 
as  received  by  RADC  from  the  Space  Defense  Center  in  Colorado  is  illustra- 
ted in  pip.  III-S.  The  first  card  of  the  actual  deck  is  the  bottom  card 
in  the  figure. 
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The  page,  although  not  completely  legible,  is  included  for  information  purposes  only. 


i igure  1 1 1 -5  . Punched  Data  Deck  Containing  the  Two  Card 
Element  Set 
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4. 


Output 

There  are  a number  of  different  output  quantities  produced 
during  a typical  run  of  the  Orbit  Prediction  Program.  By  means  of  Sub- 
routine OUT1  the  input  heading  for  the  run  (variable  name  HED),  the  run 
and  pass  numbers  (NRUN  and  M),  the  satellite  rise  time  in  hours,  minutes, 
and  seconds  (MHR,  LMIN,  and  ISEC),  the  nodal  crossing  longitude  (AMBA), 
and  the  epoch  time  in  days  (BGTO)  are  printed  out.  This  is  followed  by  a 
listing  of  various  radar  parameters  versus  times  of  visibility  of  the  satellite 
to  the  radar.  The  radar  parameters  listed  are  the  elevation  count  period 
(ECP),  azimuth  count  period  (ACP),  elevation  angle  in  degrees  and  minutes 
(variable  names  MELD  and  MELM),  azimuth  angle  in  degrees  and  minutes 
(MAZD  and  MAZM),  range  in  kilometers  (R)  and  return  time  in  milliseconds 
(RM),  and  Doppler  in  kilocycles  (DOPLER).  For  further  explanation  of  the 
count  periods  and  Doppler  refer  to  the  last  paragraph  of  this  section. 

Subroutine  OUT2  produces  printout  of  the  input  data  and 
parameters  associated  with  the  recorder,  director,  and  tracker.  The 
printout  from  OUT2  occurs  on  a separate  page  following  the  printout  from 
OUT1. 

If  Subroutine  OUT3  is  invoked,  then  additional  output  of  the  radar 
look  angles,  range,  azimuth,  and  elevation,  will  be  generated  for  various 
times  of  observation  of  the  satellite  by  the  radar.  These  observation  times 
are  separated  by  the  input  DT.  First  the  input  heading  for  the  run  is  printed 
out  (variable  name  HED).  Then  follows  the  run  and  pass  number  (NRUN  and 
M),  nodal  crossing  time  in  day  of  year,  hour  of  day,  minute  of  hour,  and 
second  of  minute  (DAY,  THR,  TMIN,  and  TSEC),  the  nodal  crossing  longitude 
(AMBA),  and  the  satellite  rise  time  in  hours,  minutes,  and  seconds  (MHR, 
IMIN,  and  ISEC).  After  this  follows  a list  of  radar  parameters  versus 
satellite  observation  times,  separated  by  intervals  of  DT.  The  radar 
parameters  are  azimuth  in  degrees  and  radians  (AZ  and  AZR),  elevation 
in  degrees  and  radians  (ALPH  and  ELR),  and  range  in  kilometers  (R). 

When  NOPT  is  not  equal  to  0,  Subroutine  OUT4  is  called. 

OUT4  will  place  the  radar  data  printed  out  by  OUT3  on  a data  file  (file  code 
02)  for  use  in  producing  off-line  plots  of  range,  azimuth,  and  elevation. 
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The  outputs  elevation  count  period  and  azimuth  count  period  are 
the  count  periods  to  be  set  into  the  programmed  antenna  tracker  elevation 
and  azimuth  clocks.  These  data  are  used  to  prepare  a magnetic  tape  that 
controls  an  antenna  programmed  tracker.  This  tape  has  pulses  recorded 
at  the  proper  rates  to  control  stepping  motors  which  in  turn,  position 
synchros  to  command  pointing  angles.  The  data  shown  in  the  output  are 
actually  proportional  to  the  required  periods  between  pulses  to  be  recorded 
on  the  program  tape.  The  numbers  shown  are  the  settings  to  be  entered 
into  present  counters  to  produce  pulses  at  the  required  spacing  for  use  in 
preparing  the  program  tape.  An  additional  column  shows  the  requisite 
Doppler  frequency  corrections  required  due  to  the  translational  motion 
of  the  satellite.  These  Doppler  frequencies  are  used  to  cut  a Doppler 
compensator  cam  for  a satellite  pass. 
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03 l 3$ I I DENT I CLEARY*  CONT I * 65 l 2 11 0ARADC 

3020$: USERID:  CLEARY S THREE  . 

03 3 3S JLOWLOAD 
30A0$: OPT  I ON : FORTRAN 
0050S : SELECT : CLEARY/OOR3 
0363$ : SELECT  : CLEARY/OCLEAR 
0365$  s SELECT : CLEARY/ 0 OUT 4 
0373$: EXECUTE 

003 3$: LIMITS: 10*32X*-5K* 12000 
3335$  : PRMFL:  02*  R/V7*  L*  CLEARY/STORE  1 
3336$: DISC: 01 *A1R*5L 
3093$ : DATA: 05 
3100  $ I N 1 

0113  HEDC  5 ) =33H  ORBIT  PREDICTION  PROGRAM 

3123  HSD< 1 3 ) = 5AH  1 MIN  EARLY  03JECT  NO.  2103  3LTN  NO.  7 

0130  SIN2 

3 1 A3  NRUN  = 302* 

3153  NPRLX=3* 

3160  N DL  = 1 * 

017  3 NOPT * 1 0* 

0150  NDCH=- 1 3 $ 

0193  $ IN3 
3233  DAY  =91 • 0 * 

3213  THR*3 . 3* 

3223  TMIN=32. 0* 

3233  TSEC=57 • 0* 

32A3  AMDA3=95. 1 33* 

0253  3GT0=36. 31 3A* 

3263  DAMDA=0 .3* 

3273  DT  = 5 . 3* 

3233  CHR=A • 3 £ 

0293  3INA 

3330  '.•70  = 53.373* 

33 1 3 E3=3. 021693* 

3323  AN  CL  = 72. 390* 

3333  RA1 =-2.52163* 

03A3  V/l=-2. 16126* 

3353  A3MTH= 1 5 . 67  5 1 A* 

0350  El =-2. A633E-3A* 

3373  A0=1. 35752* 

3333  A1 =-2. 5633E-3A  £ 

0393  SIN5 

3 A33  XLAT=A3. 1 5250* 

3A13  XL0MG=75. 61722* 

3A20  AD=6365 .33* 

0A3  3 AETH  = 3. 1 33* 

0AA0  ALTH=3. 103* 

3453  XLAT 1=3.3* 

3 453  XLONG  = 3 . 0* 

3A70  T DELAY® 2 5 . 0 £ 

0A50S :ENDJOB 
0A93***EOF 

Sample  Job  Stream  for  the  Orbit  Prediction  Program 


L 
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Source  Listing  of  the  Orbit  Prediction  Program 
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omo  oooooon  ooooooo 


orbit  prediction  - main  program 
DIMENSION  TM(lfOO).AZ<l50n>,ALPH  < 1 5 0 0 ) ,8(1500) # PHI ( I5o0 ) , 

1 TMETA(1500j ,RHD(i50' ) ,D(l500 ) ,ECP<T50 ) , ACP(750 J , 

2 HEO  < 24 ) . XL  AM ( 5 J 

COMMON  TM,  kI.A-P#.«,*HI , THET a ,RH0  ,D ,ICP  , ACP , ICP  . *ED. XUH.TO  ,DT , 

| CTO.AmDA  >, AM0A1,DAMDA,W0.Mi,E0.E1«ANCLi A»P.XlaT.XlONG»AD, 

2 sancl. c ancl. slat, clat;rlqng.i,m. j,t:h,amda. amba>e,v, phi g, 

3 CTH,Th. DE.L.SD.CDJCDL, SDL, COSB, SINE, TANALP.RSQ,C0SaZ.TaZ, 

• nn.ni,n2.xw.xl.xe;rahca,rw.cp(J.phio;spo,sth,x.sinaz»rhi. 

• SPHI .CON. AZTH/ALTH. AL0» 1 • I ALS.JJ.KK;N»2;0PT.DeLN.GAMN; 

« MMIN.NSSCf  DPLR.nEN.DrN.TT.-MHR.HR,  I H 1 N • T M 1 N , I SEC.  THIN,  J1 

COMMON  NRUN»NP4LX«nDl»N0PT>NDCM,DAy,THR»TSGC»A|MTH,CHR>P! > RAl > 

1 RaD.NA*  N3.NC.ND, NE.RRATE.bg TO. A0» A1,UAT1,XL0NG1,TD6lAY. 

2 DOPlER. X. INDX?TmTPiNERL*CTImE»ASM?M»RlONG1»SlAT1*CLAT1 
BImEl I ST/ I n1/M:0 

MmElIST/'In2/NRJX.NPRLX.NDl.N0PT.NDCR 

MMELlST/IN3/DAy, THRJTMIN.TSEC. AMDaO,BGTO,DAMDA. DT.CHR 
N«MEHST/lN4/WO»Er  > ANCL«ASMTN.RA1.u1*E1.A0,a1 
N«MElIST/1n5/X.AT,XlONG. AD. AlTH, ALTH, Al0*XLAT1,X0NG1. 

•tOElay 

LOGICAL  ILl 

data  EST.EDT/AM  EST.AH  EDT/.XRLY.XlTE/SHBARLT ,«hlate' 
data  BLANK/6M  / 

1 CAUL  CLEARITM. INDX) 

CO  ’9  I I «1*24 

HEO ( I I )>rLaNK 

99  C0'^TINUE 

Rt  * 3.1415926536 
RAO  3 , J 174532925 

BL1  *.^AlSE. 

AS  s 6378.174 

2 RBADfO1’.  IN1-6ND*999) 

80AO<O5, I N2  > 


NAME. I ST 


0 OCIOOO 

0 J001010 

0 -•  0 ^ 1 o 2 0 
000010^0 
00001040 
00001050 
000'.  1060 
0C0 01070 
00001080 
00001090 
00001100 
000C1110 
00001120 
00001130 
000U1140 
OOOC1150 
000C1160 
00001170 
00001180 
00001190 
0°001200 
00001210 
00001220 
0C0 01230 

00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
0 C 0 ^ 1 3 1 0 
00001320 

00001330 

00001340 

00001350 
00001360 
00001370 
00011380 
OC  001390 
00001400 
00001410 


RBJN  * RIJN  NUMBER  ASSIGNED  TO  PASS  OOOC13BO 

NPRLX  3 IP  NOT  .PUNCHED  PAPER  TAPE  POR  PARALLEX  OC001390 

CORRECTION  OP  TRANSPORTABLE  STATION  HJLL  8E  COMPUTED  00001400 

NDL  r NUMBER  OP  3aSSeS  TO  be  COMPUTED.  PIR3T  THE  ON  TIME  000C1410 

Pass.  THEN  ONE  POR  LAMDA*  DELTALAMDA,  THEN  LaMDA-  DELTALAMDA, 0P1420 
LAMDA*20E.TALAMDA.  Then  LAMDA-  2DELTALAMDA.  NORMALLY  USE  2 00001430 
WO°T  = 0.  SUBROUTINE  OUT  3 is  NOT  CALLED*  00001440 

NOpT  = ANY  OTHER  NUMBER,  SUBROUTINE  0UT3  IS  CALLED  0J0P1450 

ALSO  SUBROUTINE  0UT4  IS  CALLED  POR  PLOTTING  00001455 

0 COr 1460 

RB*C( 05, JN3 ) 00001470 

00001480 

00001490 

NAME. 1ST  - IN3  000C1500 


NAME-I3T  - IN3 
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D»r  • Day  or  y = aR 
TfR  • HOUR  or  oay 
THIN  <=  min.  or  hour 
T«EC  « SEC.  Or  MIN' 


NODAL  CROSSING  TJmE 
NODAL  CROSSING  TIME 
NODAL  CROSSING  TJME 
nodal  crossing  time 


*noo  * longitude  or  nod*l  crossing 


BBtO  « EPOCH  T I M5  or  NODAL  CROSSING 

DAMOa  s OElTA  .AIDA  I-.5DEGREES  IS  2 MIN?  E AlL * PASS. 
WHICH  IS  NORMALLY  THE  SECOND  PASS 

Dt  » 30.u,  the  interval  in  seconds  between  computations 

EUR  > 4.J  ir  CONVERTING  SMT  TO  EDt 
. 5 . ti  ir  CONVERTING  GMT  TO  EST 


H*D<  05  , IN4  ) 


NAME. 1ST  - IN4 

®0  * ARGUMENT  or  perigee,  degrees 

EO  * ORBIT  ECCENTRICITY 

ASCl  = ORBIT  INCLINATION/  DEGREES 

*JWTH  = A,  MEAN  MOTION.  PEVOLUTIONS/OAY 

6ai  * Rate  or  change  or  right  ascending  node,  deGrEES/Da* 

* rate  or  change  or  argument  or  perigee  in  degrees  / bay 
Et  * rate  or  change  or  eccentricity,  per  Day 
»8  * semimajor  axis  or  orbit  in  earth  radii 
At  s RATE  or  CHANGE  or  AO  in  earth  r ad  I i /da y 

peA0<05,  in5) 


NAME. 1ST  - IN5 

*Lat  * latitude  or  radar 

(LONG  = LONGITUDE  or  RADAR 

AO  r EARTHS  RADI JS  AT  RADAR  IN  KM 

AZTH  : MAXIMUM  ALLOWED  AZIMUTH  DEVIATION  Or  BEAM 

center  rR0M  Satellite  position 

aOTh  = MAXIMUM  a-LOWed  ELEVATION  DEVIATION  or  beam 
CENTER  'ROM  SaTfLLITE  POSITION 

kio  = initial  Elevation  angle  or  twe  pass 

I L A T t = TRANSPORTABLE  STATION  LOCATION'  LATITUDE 

PtONGl  = TRaNS'ORTabLE  STATION  LOCATION,  longituoe 

tdelay  = transmitter  time  delav,  used  to  compute  the  range 

MARK  VJMBERI  A NUMBER  THAT  DESCRIBES  THE  SETTING  Or 
5 SWITCHES  AT  TRANSMITTER  TO  GET  A PROPERLY  TIMED 
RANGE  mark  for  STARTING  The  PASS). 

TMTP  s EST 

I P (CHR.EQ.4.  ) TMTP  3 EOT 
WQL  r M|Nn(Nr)L,5) 

T9  s 360  ),r»THR*6  ,0»TMIN4'TSEC 

CTO  s OA Y* ( TWR*CHR ) /2W . OaTM I N/IAAO . CytsEC^B6400 . O-bGTO 


00001510 
On  001520 
00001530 
0C0T1540 

00001550 
0''0C1560 
00001570 
00001580 
000*1590 
0U001600 
OPOOl^lO 
0 r 0 1 • 1 6 2 0 
00001630 
000  11640 
01001650 
000 "1660 
OC001670 
O1' 0)  168  0 
0C0O1690 
00001700 
00001710 
00001720 
00001730 
00001740 
00001750 
00001760 
0000177Q 
OC 001780 
00001790 
OC001800 
0001-1810 
0*0 11920 

00001830 
00001840 
00.001850 
00001860 
Of  Of  1870 
00001880 
OCO 01890 
000n1900 
00001910 
OCO  1^20 
00001930 
00001940 
Of  001950 
OC 001 960 
0O001970 
Of 0ul®ft0 
0 0 0 1 1990 
0 c 0 0 200  0 
0-OC2010 
010' 2020 
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INDA1  * 360 . 985-RAl 
C «6<00  • SECONDS  IN  A DAY 
P s 8640'J  . 0/*S4Th 
J B4NCL  ■ SIN  ( AXC;.«RAD) 
t <NCi-  3 C°S  (ASCw.RAD) 

SCAT  « SIN  (X|_AT»RAD) 

et*r  * cos  <xlat»radj 

4 U.3N5  3 XLONQMAD 

SCATi  • S I N { XL AT1»RAD ) 

CC*T1  * C0S<XLAT1.RAD) 

■IDN31  3 XlOnG1*RAO 
84"Da  3 AMDAl*RAD'86«0u , 0 
861  » Wl«R8D/864  0 1 . 0 
L « 1 
H . t 

9 T « T0 

fc  • P0*CT'>.E1 
anda  3 AHDaO 
I ■ w0*Wl»CTQ*72 i . 0 
A • ABM  An*CT  1 • A 1 ) 

M A«OD(  A > 360  • 3 ) 

86  » w»Rao 

CRO  3 (E*COS  <8«O)/<l,0*E*C0S 

BRO  * SI3N  (SORT  ( 1 , O-CP 0«*2 ) , S I N ( R W ) ) 

1 r < CPO) 5j1,5oc . 5j2 
300  MIO  * S<»0  *P  I / 2 • D ~P  I 
G8  Tg  503 

501  PM10  = -pNAtA'I(spj/CPL:> 

68  Tc  503 

902  pMjO  : -AMQD ( ATAN( SPO^CP j ) *2,  #p  I , 2 . 0»p I ) 

50J  C3V*  E ®SP|'  *PH  I 3 

6 H.ah(1)  « aMDa»RaD 
«LAM(2}  3 (AMDA*DANDA)«RAD 
Iuaho*  3 (anda-damda)»Pad 
*Lam(4)  3 ( AYD4*2 • J*DAMDA) *RAD 

it L a M c 5 > 3 < ahoa-2,  ;i«damda)*Rad 

7 TM  < |_  ) 3 T 

V t 2.0*PI*(T-T  ) /P*CON 
irtV.NE.  |.iJ)50  TO  9 

8 P X I ( L ) s r- ,c 
gO  TO  10 

9 PM  I Q s V/<1.0-=) 

Cli-L  NEWT ( PH  I G , 3H I ( L I * E * V ) 

10  SB-U  = SIN  (PHI ( .) ) 

eTH  = (COS  (PHI  (L)  )»E)/'(l,r»E*COS  < PH  I ( L ) > ) 
6Th  s siqn  ((Sort  (i.o-cth«*2)).sphI> 

IHCth)  12,11.12 

11  | M s Pi -STH*P I /2 . " 

60  To  17 

12  TM  s atAM  (STH/CTH) 

I P ( tm ) 13,13,15 

13  TM  3 PI •( 1 .f-CTH)  / 2.0 


00002030 
0C0P2040 
00  0*2050 
000020*0 
00002070 
0 0 0 2 0 8 0 
000. 2090 
00002100 
0P002110 
00002120 
0 0002130 
000^2140 
00002150 
00002160 
00002170 
00002180 
0^002190 
00002200 
00002210 
00002220 
0u002230 
0n002240 
00002250 
00002260 
OOOC2270 
OC  0022®0 
00002290 
OuOC.2300 
O ' 002310 
0P0C2320 
00002330 
00002340 
00002350 
00002360 
0C0023'O 
00002380 
0 002390 
00002400 
00002410 
OC  002420 
00002430 
00002440 
00002450 
0-002460 
0C002470 
00002480 
00002490 
01)002500 
00002510 
00002520 
00002530 
00002540 
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tKTMrTMETKL-ln  14717, 1? 

1«  fH  * 2.0*Pl 
— W TO  -tr- 
ip r*  « th  « i . s«» i *s i on  ((pi/2?o),ct«) 

•q  to  i7 

16  T*  « TH*Pl/5.?.SlGN  ((Pl/2.0»,CTH) 

17  T«TA(t)  « Yh 

BK0(l>  * A«(1.0-E*COS  <PHI<L»>> 

— Ptl7  ■ RW*RH1»tT*TO)*TNETA(L? 

1®  Dili  « XL  Am  < m > 'RL.ONG*RAMOA#(TM(L)-rn) 

bb  ■ cos  (»(L)> 

SQ  ■ SIN  <D(l> ) 

BBc*  cos  <peii» 

IBl  • S I N (DELl) 

TTT  • 0 

TP(CO)  isi.isn.isi 
180  « ■ SION  (PI/2.'0.CANCI*SD) 

SO  To  182 

111  I ■ 4 T AN  (CANC.«SO/'CO) 

1®2  IP(X«CANCL)i93.i9,i9 
tit*  ■ T-  St  ON  tPl,XT 

19  |ISE  « SANCL*sl.AT*sD*CLAT*CDL*CDtCANCL*CLAY*>DL*SD 
BINE  a SORT  ( l, O.COSE«»2) 

1 P ( S I N6 , NE , o ; i ) GO  TO  20 
TI'UlF  = 1Q.0E*3J 
80  TO  21 

20  TINAlF  « (C0SE-A0/RH0(L> I'SINE 

21  IP(TAnAlF)  22*25*25 

22  TP ( Sll ) GO  TO  3 J 
24  IP(M-1)  24.24.26 
2*  T » T*0T 

60  TO  7 

2?  SCI  ..TRUE  . 

26  gS3  . AD**2*RHO(.)*»2-2,0*AD»RHO(L)»COSE 
iP(SrNE)  28  < 2 7 ' 2* 

27  C0SA2  * l.o 
GO  T0  29 

28  COS  A?  = (SANCC»SO-SLAT*COSE)/(CLAT*SINE) 

*♦  SfNA?  . SIGN  (SORT  (l.U-C0SAZ»»«J * (XaDELLJI 
lPICoSAZ)  31*30*31 

30  T<Z  < SlNAZ»Pl/2. 

60  T0  322 

31  TAZ  = ATAN  (SI4AZ/C0SAZ) 

IP(TaZ)  32 j , 32, 321 

n r*z  . Pi«(i .o-Gos*Z)/2.o 
60  TO  322 

320  T*Z  . Taz*i.5*sI*SIGN  ( ( P I /27 ' ) * COSAZ) 

60  T0  322 

321  T«Z  * Ta?*PI/2. 0-SIGN  ((PI/27'),CQSAf) 

82<  *Z(t)  a TAZ/RAD 

AC?N  ( L ) a ATAN  (TANA(.F)/RAD 
Ptl)  a SORT  IRS3) 


00002550 
00002360 
00002570 
00002980 
000025*0 
000C2600 
0U0P2610 
00002620 
00002630 
00002*40 
00002650 
00002660 
00002670 
00002680 
000028*0 
00002700 
00002710 
000C2720 
00002730 
00002740 
00002750 
00002760 
0C0P2770 
00002780 
00002790 
00002800 
00002810 
00002*29 
00002830 
0r>002|40 
00002850 
000n2860 
03002870 
0^002880 
000u28’0 
000n2900 
00002910 
000*2920 
00002930 
00002*40 
00002950 
00002960 
000C2970 
00002980 
00002**0 
00003000 
03003010 
0*0t3020 
00  003030 
OC0C30<0 
000n3050 
00003060 


S3  L * 1*1 

I',(M.LP.1)G0  T3  34 
]f (Tm(U) .EO.TM«l-1)*OT)GO  TO  18 
J4  T • T*DT 

SO  TO  7 

35  811  i. PAUSE. 

»«3A  s XuAM(M)/RAD 
M*LV  » ( AM0A-A^OAO>»4.O 
WE^LV  a EARLT*SI3Vf .5.EABLT) 
RBRU  * UBS(NE4uT) 
fTlME  = XRLV 

If  (VJERLy.GT.i  ) OTlME  = XUTE 
PAUL  OUTi 
• *uU  OlJT 2 

If  (AiOPT.NE.O)  CALL  0UT3 
If (NOPT.NE.P)CAL.  out* 
1P(NPRLX.NE.0>-A_L  paralx 
If (M.GE.mDL)OO  to  1 
M « m*  1 

t-  ■ 1 

80  To  18 
99V  g 0 ^ T l N ' J £ 

STOP 

ENO 


Of  0^3070 
or  O'  3060 
000r3090 
Or  003100 
01  0.'31i0 
0 ' 0 ? 3 1 2 0 
OCOO3130 
00003140 
0C0C3150 
000n3l60 
0C003i7q 
00003180 
00003190 
0 C 0 0 3 2 0 0 
00003210 
000u32l5 
00003220 
0C003230 
00003240 
00003250 
0 C 0 0 3 2 6 0 
00003270 
00003280 
000  '3290 


w 


CQUT1  0B3XT  PREDICTION  PROGRAM-SUBROUTINE  QUJ1  '.'00033 

C b 

SUBROUTINE  OUH  COOO'JI 

IffEKSIOlt  MVS'  ) » XzlTS  ),ALPK  ( [?0'),R{  1500), PKI(  ifo'v  !,  . ~ ~C  3 32 

1 THETA(  lr  0 ) , BHO  t 15  ).D<  1c0-),ECP(7ci0),;cP(75r  J,  -r>03J3 

2 HED(2UJ#XLmM(5)  ,IcPi750)  - ■'-  '3“ 

COM/ON  TS.aZ,aLPH,R. PHI, THETA, RKO,D,EjP,ACP, XXX, HERNIA*. TO, dT,  ' 1j35 

1 cT  ,a"‘Ba  .Af’DAl.DAMDA''«'O.Wl#i:0,El,ANCl..A*P»XlAT,XLONGiAD»  '-0336 

2 _ 3AXcL»t'ANCLi  SlAT.^AT,  RLCNG,L,V.,J,T,W,  AMpA,  AMB A , E . V , PHlG , :.0JJ7 

3 cT>:.TH,  deLL.So.CD'CDI  .SDi.cOSE,SiUi:,niJALF,R~SQ,cOSAZ,TAZ,  '27338 

4 vrJ,N',N2,X'«XX»XE».-iAKDA«F.w*l-rO,PHlO*SPO,STH,X,SlKAZ,RWli  ' P3  3g 

5 SPrIfCCN,AZTH.AiIH.AL  . I,  IMS,  JJ,  KK,  N02,  OPT,  D jlN,  GAMN,  .-jr.3u 

6 MHlN,*SBCiDPl?,ijtN.DFH,TT,MHF,:-:B,lKlN,lfHiN,iSEC.tMlH,  J ' ■ r '‘u  1 

COMMON  •'.•R"N,NPblX.PdL,N0PT,KDcH»DA^»t:-:s*TSEC#aZET’',CHP,Pi,RA1,  7342 

I_  _ FAX_iNJAiNfl.K5;4.VD»NE,RRA'i£»aGI5'i0'A1'xlAT'»>'l-ONG1»TDE3-Ay*  -'3u3 

2 DOPIER,  M,tN*0X.T:,TP.»EPL.cTlKE#As«TH#Bl0K61,SLAT1»ctAT1  0344 

1 NN  = i-  1 . 100345 

DO  2 1=1, KN  ' -C  34  5 

IF  ( AIPH(I) .LT.aI  ) GO  TO  2 - -'riU7 

IaLS  = I . n J C 3 4 b 

GOJTO  3 : 2349 

2 CONTINUE  ' 0C3S 

WRlTE(6,1  ) ( H El  (l).I*1.24),NRUN,H,TMTF,AI<BA,EGT0,NFRL.cTinE  - ' 1 C 3 S.  1 

1000  FOrMAT(  •H',29xi2A0/3  Xi2Af  / 2X7HRUK  XO  . t6  , i H- j 1 , 2x  i 1 HRiSe  TjKe  - . '.C352 

1 1X‘H  HRS , 3X5h  MlK , ?X6h  Sec*  Au ' 2x 8HL AmBD a =r?,3,SH  DEG.  70353 

2 2X  2HEFQCH  HUE  «Fp.3,rH  0Ay?  ,2X13, 6h  KIN.  A6,4KpAS5  //  -0354 

3 •)  X32HOrbJT  NOT  HIGH  ENOUGH  TO  BE  SEEN)  . 2 1355 

N0PT  =1  7356 

RETURN  - ■ C 3 b 7 

3 rCPLER  = •9.*iR(tAl-S-1)-R(IALS*,n)/(T:{IAlS  + 1)-TM(tAtS-l))  3 ,0  3 b 8 

RFATE  = . :5*D0PLER  .’JCJbo 

N = R ( I a U . 1 5+tDEL  .\  I „'„C3b 

Na  = N/1  ’■  •••  C 3 b 1 

IE  = N-1  ' *11A  ' -0362 

NE  = ( IB+ ’ )/2i  * I ''3fe3 

IC  = I B-N - * 2 0* 3 ” 

IE  (NB.GE.4)  GO  TC  4 0 C -J  6 S 

ne,  = ib/2  :.r-.6- 

IC  = IB-Nt‘2  0 n '67 

4 NC  = IC/ 2 5 * 20369 

IC  = IC-2-'  *HC  • -Ojb'J 

no  = ic/32  . :.o 3 7 

IC  = IC-3;*N0  ' r.j7‘l 

NE  = IC/ 4 -7372 

5 JJ  = ' -.0373 

KK  - IALS. 2 -000374 

6 DO  7 I - K X , N N , 2 C3  /b 

NO 2 = ( I * K K ) / ' - 1 2 00375 

DEL  - - Ali’H  ( N02 ) - ( A L PH  : I ) + A1  PH  ( KK-2  ) ) /2, 0 '.'377 

I?  ( A c S ( 0 L N ) . G T . A L T H ) GO  TO  4 C..78 

GAMN  - AZ<’N02i-(A2(I)*AZ(KK-2l)/2,0  •-  73/b 

IF  ( ABSfGAMNI.GE.  5\0)  Gf.MN  - G IMN-STGN M 8 2 , 7 , S AMN ) ' r38 
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IF  (ABS(GAMN)  .aTtAZTH/c0S[BAD*U»H<NO2)  ) ) GO  TO  8 

Continue 

3j  s jj-i 

.'000381  ■ 

7 

,000382  - 
0 >0383 

CO-  TU  9 

aooo38<r'- 

8 

ICP(JJ)  ■=  I 

0 ;P385 

DEN  - 3.  *(ALPH(l)-ALPHfKR-2) ) 

0000386 

fCP(JJ)  “ 1 , '*DT*FLOATfl-K|U2J/EEN 

v.  000387  . 

crs  - 3.  *(aZ(i)^aZ(kk-I)I 

00  00308  ' 

IF  (ABS(Dfn) ,GE,9  . ) DFN  ■ DFN-SIGN ( 1 080 , C ,DPN ) 

. 0 j0389 

ScpTJJT  ■ T~  , »CT*Fti5XTTX-ifIfTZy/DFN 

vTi  7039 

3J  » JJ*1 

O'-'.  0391 

kx  « 1*2 

0000392' 

GO  TO  6 

0 >0393 

9 

ILL  - 0 

'000399 

TT  = TMtIALST 

0000395 

Fhb  = TT736  .0 

,r000396  ‘ 

NR  = MHR 

. 0 -0397 

iMIN  = ABS ( TT-36  . ,0*HR)/60. 

' 0 0 0 2 9 ? 

TMIN  = IMIN 

./COO  ^99 

ISEC  = ABS ( TT-36 - . 0 «HR-6  ’ . MMIN ) 

00 004 0 00 

MMIN  = 0 

v 0 *0  0 4 1 . 

NSEC  * f 

,0  0 C 4 - 2 

INDX  = I ALS 

.0^09  3 ’ 

meld  = al?h(indxT 

0009.9 

helm  = ( alph(tndx)-floaT(meld' )*j0.o+,5 

0009  5 

IF ( HELM, LT, 6 ')GO  TO  9O 

CC0C9  6: 

held  = meld+i 

OC  J 0 9 . 7 

HELM-6 

90  MAZD  = ABS(AZdNBX)  ) C’04-'9 

RaZK  = ( ASSUZdtfDX)  )-FLOaT(MAZD>  )*60,0+.5  -^cn 

IF(HaZH.LT.6 . )GO  TO  jl  -ouc9ii 

HaZD  = HaZd+1  0000912: 

NAZH  = MAZm-6  . O j 0 4 T 3 

9T  ffAZD  = rSlG^T?fAZ6,"AZ‘d'jDX'n ' " ' ' T^OCaiy 

*M  = S ( IN  C X ) / * 5 . :.!0«15 

’0  IF(MOD(LLL,27) .NE.  )G0  TO  11  ? L C 4 1 6 ' 

"KITE  (6,  1 •T'HEDdI.I*1.24),ltRUH,H,MHR,lMlK#lSEC*TMIP.ANBArBGTr*  - « C 4 1 7 
1 N ERL»  cIl^E  ” ” 0 C 4 1 9 

1001  POr;iaT(  1U',2gXl2ftf/3  X 1 2 A 6 / 2 X 7 H R U N NO , j6 , 1 H-J  1 , 2X11»RiSe  TiMe  - C • C U i g 

1 i3;BH  HrS;x3,^H  Mi!;.i3,5h  SecTa4*  2x8HLA«EDA  =Z8.3.5h  DES.C03042  - 

2 2X12N?P0CH  TIME  =Fq.3,5h  DAIS,  2X13, 6H  Mi::,  aS^hPaSS//  ‘ 0 C u 2 1 

3 7XLHTIMe»1  XgHELEV ATlON , 1 0X7H  a 7IKUTH  , 9X9HEL  . At>’Sl-E»7X  ."00422 

4 9KAZ.  ANGLE.  9x5He  A,VG;;,  15X7HD'PPLER  7X4HTi«e/5X9hMiN,  Sec-  3. '0923 

5 7 y 1 h c N T G . PsR' . i 8*  1 • HcKlG . PER . , 7XgHDEG . MlN , 7Xg HDEG . MIN . ' 0 >0929  - 

6 6X3HKM.6X3HM3,, 13X4HK.C..7X9HMIN.  SEC.  ) ,"vC425 

IP  Tn'L.E'rTmiETS.  ICOZTMMlK.MSEC.KElD.flELn.ffftZr.KA^M'PlIflD*)*  0030426- 

1 RM. DOPLER  - - 0927 

1002  FCHXAT(I8.I-.T47,I5,I12,I4,F )3.3,P9,3,P16,3)  OOC«2g 

1 1 ILL  = LLL*  1 <■  ■'  .0429 

INDX1  = I X D X 0000«3 

I ;;  D X = ICF(LLL)  -0.-C4J1 

SOPLeH'^9.  ^(RTlJfDXlT-RTlNDX)  J/fTMdRDXl-TMdNDXI)  ) -"0tru32 ' 
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Stl-M  - tiapiffSoI  )-rLOAT{HEiD)  )*60.0  + ,3  :',fi*34 

AB5(A.2ilKi>XJ] '.0-35 

MaZM  * ( AES(  aZ(  IIdX)  )-FLOaT(Ma*D1  J * 60 .1T» . 5"  -1PU3S 

. _ HAZp  = ISIGN(KAZ0,AZ(I'«DXI  ) -'-0437 

In  = R ( I N D X ) / '5  . .:.043b 

TT  * TH(IVpXT-IMfms)  :JC439 

HMIN1  ■ TT/6  .0  ■ " /0*4 

Emin  » nnm  i . '..0441 

TTsecI  * AES(TT-6.  . ;*znxl)  . )0442 

&TMP  * (6  * ( HMjN  I^MMjm^MSSC  1+f,sBC  )/2  "70443 

K S e C 2 * B0d(MTHP»6  )'  .".'0444. 

H K I N 2 * (KTnP-MSEc2)/$0  . .'.■'0445 

HniN  « nniui  0446 

Hs?g  » mseci  ■:  <0447 

WRITE  (6*1  -3TEcPfLI'Lj.ACpfLI,L)/,DOPLER,nMllI2#MSEc2,MKlN,n3Ec#nEI.D«  ' 

1 .VelM,mazd.«az,i,r(i}.’0x)#r:/  00449 

1003  FORMAT  ( F2j  . # F 1 8 , , F7  1 . 3 , 1 9 # I4/I8  » 14  # 147, I5,  1 1 2,  I4  , F 1 3 , 3,  F9 . 3 ) r'^45 

IF  (U.l.lT.JJ)  GO  TO  10  .:.C451 

RETURK  j ? 0 0 4 b 2 

8Nq_ _ _ 000453 


lIHEHSXOB  TMt'5  ♦ 1 500 ), R ( 1500 ), »H* ( 1 5QC } , 

“1“  THBTA(l5:0),«gori5’j-|.n<1500J,ZCm59),AC*t7!?l. 

2 HED(2u!,XlAn(|) 

COHHON  Tn,Al.AlPfl,«,PHX;TfttTA,2HO*I>.*CP,ACP,XC9,l|ED,XUM.fO,OT, 

1 CT  .AilCk  .A"DAl.BAMOA.WO.>M»EO,El.AlfCla#>»XI<lkT.XLOlfG4AO# 

2 SANcl.CA»fcL.SUi;clAT,*L0«8,L.M.J,T.W,  AHDA#AM«A*E.Y,mXa» 

3 CTH.TH.DEUiSD.Cb.cOL.SBL.COSE.SXNlfTANEir^ISQ.COaU^TXl# 

4 Hlf.H,»I‘,2.«W.XL.XI.*AMDA.»W.CP0.PHI0,SP0,STH.X,Sr»A|4«r, 

5 SPHI,CO»,|ZTH.  ALIK;  U :.X.lAtS,JJ,KK,  K02#OPTiD«l.»»aaH», 

6 H?*lN.«ElCiDfLB.DiN;DrN,»l.«HE,H>»IHJK#YMXE,ISBC.THX># J1 
COMMOH  NlU8,WPilf,>DL,N0PT»HDCM,8AX» THR,  T6EC,  AlNTH,CJ(R,  PX,  lA 1 , 

1 RXD.NX.MBiNC,ND.l!|RIIAX8.|OT0,  AO,  Al.XlAf.XlOEG^tDlUl, 

2  pOPXEa,«,tNpX.tHtPJMEBl..cTI«E,ASI1TK,8;Oll6l,al.^T1,cl4T1 

1 ILHIS  • ALPH(lAl.i)*i7'17j7« 

AZHLS  - AZ(XaLS)»  i7.777j 
feELD  - AtPHdAtsl 

«ELM  - (ALPH(l4tS)«nOA*(nEXD)  )*I0.0^,5 

•aZD  - A9S(A*(tAtS) ) 

gAZH  - (ABsUZHaLS)  )»rtOAT(MAZD»>*60.0*.» 

HliSD  » X3iG»(M»Zf,AZ(XAtS!) 
in  - b ( ials ) / 1 s : 

2 WBITE(6,1Co'T(He6(X),Ii»1.24) 

1000  PORt1AT( 1H1.29X12A6/3  X1JA6  ///d) 

WRITE ( 6 , 1 ' . 1 )NRUI,N,n1UW,H.MHR, xnXN.XSEC, aIPHCaIS) ,«H», XNXN.IIEC 

1 A«(tAlS),(Hl&,MELH.BlMI<s**M*N*zP*N»«"**#f1lSt«(x4I.|)i 

2 PH, Ifaie.ua. mb, nc. no. he 

1001  iOBMAX(29X8HBECO*DER,38X8HOIRECTOi  // 1 OXUHDaTB. 6 JXUHPaIE// 1* X 

1 HHPaSS  HOMbEB.iI,  1 H-I ',48X11  HP aSS  HUHbIB#II, 1H*I1^/10X 

2 9HRISB  TIME, 13, 3H  RRS..I3.5H  HIH.,X3,5H  S|c,,33E 

3 13HOBJECX  PWHbEB// '0X14HF1SE  EUVaTXOW  P7,3,8H  OE01EE3#37X 

4 9HRiSe  TjHE.l3.5H  HRS..X3.5H  HiN.,J3,5h  S|C*//10X 

5 13HBISE  *tl!lUTH  *913. 8h  D«5REES,  37X14H»XS|  iLlVfcI:0B,  x 3, 

6 5H  DtG.’,jJ.7H  HjE.  ,F1  .5,5H  HlLS// 1 0X  1 1 HI ABG;  AT  X0,f10.3 

7 4 H HS , , 4 1 X ‘2HHI3Z  »ZIHUTH.X5,5h  DE0,,X3,7h  HI*.  » P13.5, 

8 5H  MXLS//76X1  iHRiHG?  aT  I0,r8.1,4H  KK,,f10.S,4H  fl«,//76x 

916HRANOE  RATE  aT  T ,F10Y$|5H  US/S//76X 1 9h»aB9E  HaRK  »0Hb»«  5X1) 

3 »RiTb(6,  1 * dTNAUS.HPRlXiNui.NOPT.NDQH.RRU^lliDinriTHRiTniB.TSic, 

1 AMqA  , BGI  ,DAHDA*CT*cHa,HHR,lMlN,xSEC»«0#EO,aMcl.A«HtH,aH 

2 BAl.W.jl 

1002  PORKAT(///////3  X7HTrACKeB.57X1  IHINPUX  CA*DS  // 1 0X4HoAIe. »2X 

1 6 H N 8 U N -l6,  9h  NPr;X  *x6.7h  NdL  "I4,8H  NQPt  «X4, 

2 8H  NDC«  -16// lOXiHpASS  So.l8.  1H-H*38X5HdAX  =P5,0,7h  THR 

3 P 4 , j , 8 K TMXH  -F«.  ,6H  XSEC  -F4.0,9H  1«OaO  -F|.3//1QX 

4 8HREEI.  M 0 , , 3 2x 8 HflO TO  =r9.4,9H  OaMOa  •f“.1,4H  OT  *#4,1, 

5 7h  CHF  -f 3.0//10X9HRISB  TIME,I3,5H  HlS,,X3,5H  NIB, .13, 

6 5H  SEC..23X4HW0  "Fg , 4 , 6H  EO  -r9.6,8H  aNCL  «P7,3. 

7 9H  ASMTH  *79.5/71  X 1 IHfiAWGE  AT  TO,F10.5,4H  M3..35X6H  R*1 

8 F9.5.5H  =f9.S,6H  El  *1PE12.4) 

4 WRITE ( 6, 1' .3)NA,8B,Nc,RD,PE,A  , A 1 • BB ATE , Xt AT, HOBS, AD, AEtXi AITH, 


00004543 
.3004545 
00004550 
00004560 
0000857” 
00004580 
C 0004590 
300046  8 
*0304613 
3000462  ) 
“3030863" 
30  )Cu6tt  ' 
0030465 
0300466  t 
C030U67? 
3000468  ' 

:ooo469; 
030047. 0 
30004710 
00304720 
0000473 
0C00474  • 

‘ 30008750“ 
30304767 
3000477; 
0030478 ; 

, 0 0 0 0 4 7 9 * 
000048.  •• 

■0OOO«8l  3 

00004827 
.'0004833 
.030484 
0000465  ) 
jOuOU86  ; 
0300487; 

, .000488 
3 0 004 8 g 
000049.3 
30004917 
0000492 ! 

, 30008937 
C030494 ; 
.030495  ' 
.'000496  : 
•3000497; 
J000498: 
3030499’ 
303053  .0 
30  305  .'  1 : 

= 3000512  J 
30005. 3 . 
.0305340 


t u ».hj 


1003  POHHAT(/1  ' X 1 9HifAlci!AnA<  J LSoMB£f0,ilT  # 37X4HA0  -fg,*;, 

AO  *r|*l»eH  AlTH  -|7,3//i:*8MlHJ,XDXAl  J0OO5U89 
53X6HaLTh  ■F6.J,Th  aL  TEaJI  ■f9,5«10H  JUbWfl  ■30005:aD 

F9.5//10XJHSTOF  fIg*.52l8HTDBlAT  -F7?3  ) *'  * 000051? 


.0005.5' 

6H  A 1 «1#ri2, « ,0^05.61 
35X6HXIAT  *F9.S,  .,0005.7^ 


Hetubn 

CKO 


.,000511 
00005  1 2 
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C0UT3  0R3 I T PREDICTION  PROGRAM-SUBROUTING  OUT3 

C 

SUBROUTINE  0UT3 

DIMENSION  TMf 13  AZ(l5<n>,AlPH  < l50 0 ) , R <1500 ) , PH  I (1500 » , 

1 THETA(l5oO),RHO(l30').0(l5on).ECP(‘5o)iACPtT5oJ, 

2 HED(24),XIAM<5> 

COMMON  Tm,  AZ,  A ..PM,  R,  PH  I ,ThETa,RHO.O.BCP,ACP,  l CP . MED . XL AM .TO , DT , 

1 CT",  AMD  A*'.  AMOAl.DAMDA.WO.Wl.EO.El.  ANCI.I  A , P. XL A T . XLONG * AD, 

2 SANCL.CANCl.SLAT.eUT.RLONG.l.M, J.TiW, AMDA. AM8 A » E . V * PH l G , 

3 CTH»  TM.  OElL.  SD.  CD».  CDL  #S0U.COSB.  SINE*  T ANALP.  RSO,  COS  A2.TA2, 

« NN.Nl.NZ.XW.XL.XE.RAMDA.RH.CPO.PHlO.SPOiSTH.X.SINAZ.RMl, 

5 SPHl.CON, AZTHJALTH. AUO. I . IAlS.JJ.K«;NQ2,0PT,DELN,8AMN, 

6 MMIN,MSSC.DPLR.DEN,DrN,TT,-MHR.HR.  IMINiYMIN,  IseC.TMIN,  Jl 
COMMON  NRUN.NPRLX.NOL.NOPT.NDCH.DAY. THR. TSEC#A2MTH.CMR,Pr.RAl. 

1 RAD*NA.NB.NC»ND.NE.RRATE.BGT°»A0. Al.XLATi.XLONGl.TDELAY. 

2 DOPLER. N. INDx;TMTP,NERL.CTlME»ASMTM;RLONGl.SLATl.CLATl 

l nsec  * tm(1j-tm(ialS) 

IOT  , DT 
Ni  ■ 1 

i N»«MINj<N1*48, MN) 

»«lTf co.inotrt  tHSOt  I ). I *1,24) .NR«N, M»NERU, CTfME, DAY, ThR,TmIn;TSEC 

1 AM3A.MMR.IMIN.ISEC.TmTP 

1000  rORMAT(lMl»29X12A6/30Xl2A6//5  X0HPASS  NO  •*  T6,1H-I1,2R  ‘.!2i6M  MIN 

1 a6//25x29m,nODAL  CROSSING  D Aj  A - DAY  NO > ' F 4 ■ J * 2H  .F^.n, 

2 5H  HRS  . » P’4 , 0 , 5H  MIN.  , F 4 , 0 •;  1 6 H SEC;  - LAMBDA  s F9.3  //45X 

3 11HRISE  TIME  - 1 4 * 5H  HRS-*I4<5M  MlN.,l4#5H  SEC..A4  //  9X 

4 4HTIME. 2BX7HAriMUTH,36X9HELEVATI0N,25»5MRANGE/9X4*SECT.l7X 

5 7MDEGR55S, 15X7HRA0I ANS.15x7hDEGREES,15x7HRADI ANS.16X3HKM, 

3 DO  4 I s N 1 > N 2 

A ZR  * AZ(I)*RAO 
EL1’  = ALPH(I)*RAD 

LB  1 TP  <6. 1001  > NSEC.  AZ<  I ).  AZR.  ALPH{  I ) »ElR/.RJ  I ) 

10  01  r0RMA7(li3,F24.-3,F22r5,P21.3;F23;5.P21.2) 

AlScC  = NSEC*IDT 
a CONTINUE 
Nl  = n2+1 

IF(Nt.LE.NN)  GO  TO  2 

RETURN 

E^O 


0 0 0 0 5 1 3 0 
000' 5135 
000 '5140 
00005150 
OOOC5i6o 
000^5170 
0C0C5180 
070n5t90 
000' 5200 
000  5210 
00005220 
0C075230 
00005240 
00005250 
00005260 
0 C 0 V 5 2 7 0 
00005280 

OOOC5290 
00005300 
0C0C5310 
, 000|,5320 
00005330 
. 000*5340 
00005350 
00005360 
000'.  5370 
. 00005380 
>00005390 
00005400 
00005410 
0000:5420 
00005430 
00005440 
Q00G5450 
00005460 
0r0C5470 
000054«0 
000"  5490 
00005500 
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cprlx  one i t prediction  program- subrout i ni  paralx 

e 

lOBROirruJE  PARAL*  

0 1  ME«S ! ON  rM(l>'|0)>AZU90C>#AlPH  < lSOO ) , | | |9Q0 ) , PHI  UBuO  J , 


( THETA  < 15  JO  J.  RHOI  lSOi' >.  D(  1*80  >.BGP|»*0)«ACPf  750) * 

3 HED( 24) # XlAH<  J) 

IBMMON  Tm,|Z, A.PH.R,PHI,THETA,RHB*D»iCP#ACP«tCP#HED.“LAM»TO,DT, 

iCrn.AHO*:, AMOAl.OAHDA, WO,H1,E0,E1»ANCLi a.p.xlat.xlonq.ad, 
SANCL  »CANCL»SLAT.CLAT«RLONG.l*M» JiTTWf ARDA#  AMBAtE.  V »PRIB# 
3 CTH*TM#DSlL.SD»CD#!CDL/SDL.C0$8#SJNB#T4NALP»R$Q»C0SAZ#YaZ# 

4 NN.Ml.Na,XW,XL.XE;RAMBA.RR,cPfl.PMf0;*P0,STH»Xi3!N*Z,RWl. 

I SPHl,CON.AZTH?ALTH.  Al.0,  l,  »AL8*JJ»RK.N#2.0PTiDBLN,(IAMN» 

4 MMI N. MSEC. DPL*» OEM. DrN.TTrMWRiHR. 1 M IN/ YH 1 N , I $IC # TH I N , Jl 

•OMMON  NRUN.NPRLX.NDL.NOPT.NDCH.DAy, YHR,?IIC*AZMYH,CMR)Pt,RAl# 
t ~ RA0»NA . MB#  NC#  NO. NS. RRATB#  |Gt°»  AO  # lljXliA  Yl » XLONG1  # YDiLAY# 

3 DOPlER.'I.  lNOX».rMTP.NERL.CTlME»ASMTMrRL0MQi*SLATl.CI.ATl 


DIMENSION  PAZ ( 4 0).PEL<40n),|L(3750)iAZl»3XJO) 

EQJI  VALENCE  {Eu.  AZ».  |Azi#:R(7*l») 

IfT  . 6.25-DT 
NPt  ■ XPT 

“ KYRA  ■ XPY«.Fl0*TINPY) 

MX  « A U 0 o 

ir(XTR*.NE.C.O)  MX  * 1.0ZXTRA*.3 
10T  » DT 
LT  ■ L-l 
jTDT  a L-IAUS 

TPUTOT*lDT.LEi6T)  GO  TO  1 
WRITE<6,lnOO)  NRJN.M 

1000  F0RMAT(9M0PASS  M3.  IT.lH-Il.23H  LONGER  THAN  10  MINUTES) 
ilTOT  s 6 J r> / 1 D T 
LY  « IALS^jTOT-i 

1 DO  3 lsMLS#LT 
~ J • I “ I Als*1 

TOON  3 TM< I ) -TO 

Q8LL  3 XLaH(M).RlONOi*R*Moa*YcON 
BD  * C0S  < D < I ) > 

80  * S ! N < D < 1 7 > 

COL  i COS ( DELL  7 
80L  x SIN(DELL) 

I ■ aTAN2(CANC-#S0,CP) 

2 BOSE  * SaNCL*S.ATi*SD*CLATi#CDL»CD+CANCL*CLAY1#SDL*SD 
8 ! ME  » SQRTIl. 3-C0SE»*2) 

PBL< J>  = AlPM< I )-ATAN2<C0SE-AD/RH0( I 7.SJNE7/RAD 
COSaZ  » 1.3 

TP  <riNE.NB.0,0)  COS A 2 « <SaNCL*SD-SlaT1«C0SB >/<CLATl*SINE > 
8TMAZ  a SIGN(S3RT(1.0-cOSAZ**2),TX-DBLL>> 

PAZ(j)  i AZ< I)-ATAn2(SINAZ.C0SAZJ/rAB 

TP(ARSIPAZaJ) ) .GT.lSe. J)PAZ(J)  * PAZ(J1-8!GN#360«C.PAZ<J)) 

3 CONTINUE 

dY  * JTOT-I 
R • 0 

Til  ■ T M I I ALS> 


030C5510 
000C5515 
000"5520 
OC  005530 
00005540 
0O0C5550 
00005560 
010C5570 
00005580 
00005590 
00005600 
00005610 
00005620 
00005630 
00005640 
00005650 
00005660 
00005670 
00005680 
00005690 
00005700 
00005710 
00005720 
OCO  05730 
00005740 
000 1#  5750 
OCO 05760 
00005770 
000^5780 
00005790 
000^5000 
00005810 
00005820 
00005830 
00005840 
00005850 
0C0C5860 
0*005870 
00005880 
000 '5990 
00005900 
00005910 
0 r 0 0 5 9 2 0 
00005930 
00005940 
00005950 
00005960 
000*5970 
00005980 
00 0 5990 
0C0O600O 
000r6010 
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DO  7 I.l.JT 

030 C 6020 

J ■ I ♦ I *LS*1 
tl  « TH(J) 

000(6030 

000^6040 

T2  ■ T1*DT 

ooo:6o5o 

DfUZ  * <P*Z< I*l»-PAl<  DJ/DT 

00006060 

DlwEL  ■ <PEl< I*1>-*6L( I>*/dT 

00006070 

MRT 1 » NRT 

ocon6oeo 

I f < MOD <1 » NX  ) , E3 . ) NRT1  * NPTl*l 

000n6090 

DO  6 J*\ • NPf  1 

OCOC6100 

X ■ K ♦ 1 

00006110 

7»2  « Ul**08 

00006120 

(llU)  * ?aZ(  I*1)-(t8-t11)*D|LAZ 
ei(K>  • PEL< I*1>-<T2»T12»*DELEU 

00006130 

00006140 

Til  . T12*  , 08 

00006150 

TP(Tll-GE.T2Tfi3  TO  7 

000061.60 

soxtinue 

0C006170 

COXTjNUE 

o;of,6ieo 

«8  I TE  ( 1 )NPljN.M,K,MHR;  I min,  I sec.  A MB  A 

030C6190 

VRtTE(l) (AZ1( I ) .EU( I )> I«liK) 

000^6200 

PETobn 

00006210 

f NO 

00006220 

uu  m 


0N6BT  SATELLITE  PREDICTION  PROGRAM-SUBrOQTINE  NEWTr4/26/63 

IfLUTION  OF  ETJJATTON  - TT«r-FlStNl  - TT  NHWTON-RAPHSON'  METHOD 

|0BR0UtINE  NEBT(*,T,RiO) 

a | ■ initial  ouass 
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• SUBROUTINE  CLEAR 

• SUBROUTINE  TO  SET  FORTRAN  LOGaTJORS  TO  ZERO 

9—  — ciu.ttfr  seau«NCS  - call  CLEARriiTi 

• 

•TmB  RRR°0S6  or  CLEAR  IS  to  ZERO  OUT  LOCATIONS  X THROUGH  Y 
CLEAR  lAVF  1,4 

UOA  2,1  ADDRESS  OF  X INTO  A REGISTER 

13 A 3,1  ADDRESS  OF  T 

t»L  ORDER-  v It  GREATER  THAN  X 

L 0X4  2 > 1 RESTORE  X4 

A*  tTZ  0,4 

l*X A 1-A  INCRE  X« 

At  *HRX4  3*t 

TNC  Al 

TIE %2 

return  Clear 
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TRA  A2 
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ORBIT  PREDICTION  PROGRAM 
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Plot  from  the  Sample  Output 
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§ Rome  Air  Development  Center  * 


RADC  plans  and  conducts  research , exploratory  and  advanced 
development  programs  in  command,  control,  and  comnmications 
(C3)  activities,  and  in  the  C3  areas  of  information  sciences 
and  Intelligence.  The  principal  technical  mission  areas 
are  communications , electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability , maintainability  and 
compatibility . 
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